Количество номеров функций

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