excel表格里面统计某个数据的数量 并且这个数据大多部分以多少乘以多少的格式出现
发布网友
发布时间:2022-04-20 23:18
我来回答
共2个回答
热心网友
时间:2023-10-25 04:27
用VBA自定义一个函数。
Function SumAA(rng As Range, str As String)
Dim rg As Range, st As String, ar()
Dim i%, j%, k%, l%, N%
For Each rg In rng
st = rg.Value
l = Len(str)
If st <> "" Then
i = IIf(InStr(st, str) = 0, 0, InStr(st, str) + l + 1)
k = 0: N = 0
If i > 0 Then
Do Until IsNumeric(Mid(st, i + k, 1)) = False
N = N & Mid(st, i + k, 1)
k = k + 1
Loop
End If
ReDim Preserve ar(j)
ar(j) = N
j = j + 1
End If
Next
SumAA = Application.Sum(ar())
End Function
热心网友
时间:2023-10-25 04:28
选择鼠标所在定义名称–引用位置按照我的格式写–然后点击需要给出答案方格–点击用于公式–之后向下拖动即可
追答