excel中,如何用vba语句实现对某一区域内,相同字符串的统计。

发布网友发布时间：2023-08-03 15:38

共1个回答

热心网友时间：2024-02-21 06:18

代码如下：

Sub aa()
Dim i, k As Integer
Dim s As String
k = 0
s = "李红"
For i = 3 To Cells(Rows.Count, 1).End(xlUp).Row
If WorksheetFunction.IsNumber(WorksheetFunction.Find(s, Cells(i, 1))) Then
k = k + 1
End If
Next i
MsgBox "“李红”出现：" & k & "次。"
End Sub追问上面的语句执行时报错了，if WorksheetFunction.IsNumber(WorksheetFunction.Find(s, Cells(i, 1)))这一步是怎样进行的判断的？希望高人再指点一下。另外find方法是返回包含所查找字符串的单元格怎么运用find把找到的字符串进行统计呢？我是初学者看，请大侠帮忙再看看啊。

追答怎么可能呢？我没有调试通过会贴上去吗？
好好检查一下哪个字符输错了，最好的方法是打开VBE编辑器后，直接复制粘贴上去再运行就可以了。
WorksheetFunction.Find(s, Cells(i, 1))这段代码是调用工作表函数FIND，在A列单元格中查找s，也就是"李红"，然后再调用工作表函数ISNUMER判断返回值是否为数字，如果是数字时，就将计数器加1 ，否则计数器不会加1，计数器K的最终结果就是你需要的数。