Подсчет повторов текста в колонке - VBA

Узнай цену своей работы

Формулировка задачи:

Подскажите пожалуйста. Есть таблица, Колонка А содержит список. Можно ли подсчитать количество повторов текста (макросом) указанного в ячейке А1, в данном случае Стул красный. Количество повторов в ячейке С1 Буду рад любой помощи.

Решение задачи: «Подсчет повторов текста в колонке»

textual
Листинг программы 
Sub pov()
    Dim i&, j&
    For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
      j = j + UBound(Split(Cells(i, 1), [a1], , 1))
    Next
    MsgBox "Этот текст повторился " & j & " раз"
End Sub

ИИ поможет Вам:

  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 3.889 из 5
Похожие ответы