[已解决]如何统计数组中的指定字符的个数

研究研究

l7JgAEiU.rar (6.65 KB, 下载次数: 12)

2010-11-29 18:26 上传

点击文件名下载附件
如何统计数组中的指定字符的个数

最佳答案

月排行榜 / 总排行榜

liuguansky

2010-11-30 09:55

Sub 单击()
Dim arr, i&, j&, s&
arr = Cells(1, 1).CurrentRegion.Value
s = 0
For i = 1 To UBound(arr, 1)
  For j = 1 To UBound(arr, 2)
    If arr(i, j) = "正常" Then
      s = s + 1
    End If
Next j, i
MsgBox "共有正常个数为：" & s
End Sub
Sub 单击1()
  MsgBox "共有正常个数为：" & Application.WorksheetFunction.CountIf(Cells(1, 1).CurrentRegion, "正常")
End Sub
Sub 单击2()
Dim arr, i&, arrt, s&
arr = Cells(1, 1).CurrentRegion.Value
s = 0
For i = 1 To UBound(arr, 2)
  arrt = Filter(Application.Transpose(Application.Index(arr, , i)), "正常")
  s = s + UBound(arrt) + 1
Next i
MsgBox "共有正常个数为：" & s
End Sub
Sub 单击3()
Dim arr, i&, j&, dic
Set dic = CreateObject("scripting.dictionary")
arr = Cells(1, 1).CurrentRegion.Value
For i = 1 To UBound(arr, 1)
  For j = 1 To UBound(arr, 2)
    If arr(i, j) <> "" Then
      If dic.exists(arr(i, j)) Then
        dic(arr(i, j)) = dic(arr(i, j)) + 1
        Else: dic.Add arr(i, j), 1
      End If
    End If
Next j, i
If dic.exists("正常") Then
  MsgBox "共有正常个数为：" & dic("正常")
  Else: MsgBox "未找到正常记录"
End If
Set dic = Nothing
End Sub

RVQg0ckD.rar (11.12 KB, 下载次数: 48)

2010-11-30 09:54 上传

点击文件名下载附件
如何统计数组中的指定字符的个数

跳转到最佳答案楼层

Zipall

直接countif不行吗？

研究研究

因为还要其他操作

snrvgbb

可调用工作表函数countif或遍历计数吧

青城山苦丁茶

可参考filter的用法。

当然循环计数也不错

搁浅2008

数组+字典 基本无视运算时间呢

liuguansky

Sub 单击()
Dim arr, i&, j&, s&
arr = Cells(1, 1).CurrentRegion.Value
s = 0
For i = 1 To UBound(arr, 1)
  For j = 1 To UBound(arr, 2)
    If arr(i, j) = "正常" Then
      s = s + 1
    End If
Next j, i
MsgBox "共有正常个数为：" & s
End Sub
Sub 单击1()
  MsgBox "共有正常个数为：" & Application.WorksheetFunction.CountIf(Cells(1, 1).CurrentRegion, "正常")
End Sub
Sub 单击2()
Dim arr, i&, arrt, s&
arr = Cells(1, 1).CurrentRegion.Value
s = 0
For i = 1 To UBound(arr, 2)
  arrt = Filter(Application.Transpose(Application.Index(arr, , i)), "正常")
  s = s + UBound(arrt) + 1
Next i
MsgBox "共有正常个数为：" & s
End Sub
Sub 单击3()
Dim arr, i&, j&, dic
Set dic = CreateObject("scripting.dictionary")
arr = Cells(1, 1).CurrentRegion.Value
For i = 1 To UBound(arr, 1)
  For j = 1 To UBound(arr, 2)
    If arr(i, j) <> "" Then
      If dic.exists(arr(i, j)) Then
        dic(arr(i, j)) = dic(arr(i, j)) + 1
        Else: dic.Add arr(i, j), 1
      End If
    End If
Next j, i
If dic.exists("正常") Then
  MsgBox "共有正常个数为：" & dic("正常")
  Else: MsgBox "未找到正常记录"
End If
Set dic = Nothing
End Sub

RVQg0ckD.rar (11.12 KB, 下载次数: 48)

2010-11-30 09:54 上传

点击文件名下载附件
如何统计数组中的指定字符的个数

dongqing1998

Sub 单击()
    Dim arr, arr1(), i%, j%
    arr = Range("a1").CurrentRegion
    ReDim arr1(1 To UBound(arr), 1 To 2)
    For i = 1 To UBound(arr)
        For j = 1 To UBound(arr, 2)
            If arr(i, j) = "正常" Then
                arr1(i, 2) = arr1(i, 2) + 1
            End If
            arr1(i, 1) = "本行正常单元格个数："
        Next
    Next
    Range("i1").Resize(UBound(arr), 2) = arr1
End Sub