Question

我在Word中有一个表，该表有两列和两行，我将用1到9的数字填充每个单元格，是否有任何函数可以告诉我表中每个数字有多少个数字？最好的问候！

Answer 1

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

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

功能编号计数

1 个答案: