[求助]：这个表格可让它自动统计吗？

aduohu

两个个表格可让它自动统计吗？

yi.gao

用取子字符串函数实现，但是稍微有一些局限性，就是当取两位以上字符串需要改函数变量。
C3=MID(A3,3,1)，具体见附件。

aduohu

第一个问题解决了，第二个呢？

efan2000

1、查找"-"的位置，公式为：MID(A3,3,FIND("-",A3)-3)。
2、采用自定义函数，代码如下：

2. 
   
3.   [FONT=courier new]
   
4. 'Arg1为要统计的单元格区域，Arg2为要统计的值。
   
5. Public Function 桩Count(ByVal Arg1 As Variant, ByVal Arg2 As Integer) As Variant
   
6.     Dim r As Range
   
7.     Dim s As String
   
8.    
   
9.     On Error Resume Next
   
10.     For Each r In Arg1
    
11.         s = r.Text
    
12.         '-之后的数值是否与要统计的值相等
    
13.         If CInt(Mid(s, InStr(s, "-") + 1)) = Arg2 Then
    
14.             '单个的桩数*数量
    
15.             桩Count = 桩Count + CInt(Mid(s, 3, InStr(s, "-") - 3)) * CInt(r.Offset(0, 1).Text)
    
16.         End If
    
17.     Next
    
18. End Function
    
19.   [/FONT]
    

<br />   [FONT=courier new]<br /> 'Arg1为要统计的单元格区域，Arg2为要统计的值。<br /> Public Function 桩Count(ByVal Arg1 As Variant, ByVal Arg2 As Integer) As Variant<br />     Dim r As Range<br />     Dim s As String<br />     <br />     On Error Resume Next<br />     For Each r In Arg1<br />         s = r.Text<br />         '-之后的数值是否与要统计的值相等<br />         If CInt(Mid(s, InStr(s, "-") + 1)) = Arg2 Then<br />             '单个的桩数*数量<br />             桩Count = 桩Count + CInt(Mid(s, 3, InStr(s, "-") - 3)) * CInt(r.Offset(0, 1).Text)<br />         End If<br />     Next<br /> End Function<br />   [/FONT]<br />

公式为：桩Count(A3:A11,300)。

aduohu

谢谢了，好多东东都不明白，刚开始还以为Excel很简单的，没有想到这里面学问这么大

随缘OK

第二个问题也可以使用数组解决
{=SUM((1*RIGHT($A$3:$A$11,3)=$A17)*$B$3:$B$11)}