Vba 函数数计数

我在Word中有一个表，有两列两行，我将用1到9的数字填充每个单元格，是否有函数告诉我表中每个数字有多少个数字？

---

致以最良好的祝愿

这里有一些代码可以帮助您入门；它将与包含插入点的任何表一起使用：

Sub CountTableNumbers()
Application.ScreenUpdating = False
Dim ArrNums(9), i As Long, vTxt As Variant
With Selection
  If .Information(wdWithInTable) = False Then Exit Sub
  For i = 0 To 9
    ArrNums(i) = 0
  Next
  With .Tables(1).Range
    For i = 1 To .Cells.Count
      vTxt = Split(.Cells(i).Range.Text, vbCr)(0)
      On Error Resume Next
      ArrNums(vTxt) = ArrNums(vTxt) + 1
      On Error GoTo 0
    Next
  End With
  For i = 0 To 9
    ArrNums(i) = i & ":" & ArrNums(i)
  Next
End With
MsgBox Join(ArrNums, vbCr)
Application.ScreenUpdating = True
End Sub

欢迎光临！这是一个程序员编写自己的代码并在试图自己解决某个特定问题后共享该问题的网站。请务必查看（您将获得您的第一枚徽章！），并查看“”，以及，以了解有关此网站主题的更多信息。如果您对代码的某一部分有特定问题，您可以在帖子中共享示例数据和一些背景信息。以下是一些来自该网站的顶级用户。祝你好运