Страницы: 1
RSS
Как вычислить количество определенного слова в разных ячейках
 
Добрый день. Изыскал весь интернет и форум, но не нашел ничего. Помогите, кто сталкивался, пожалуйста.
Есть задача: 3 столбца, 3334 строки. В одном из столбцов имейлы, во втором страны и в третьем города.
Нужно посчитать какое количество стран упоминается в документе (в числовом или процентном выражении). Например, США указано 250 раз, Аргентина 350.
Помогите, люди добрые)
Изменено: vikttur - 23.09.2021 17:31:45
 
Добрый и Вам. Пример покажите в файле эксель. Что есть, что нужно получить.
Если в мире всё бессмысленно, — сказала Алиса, — что мешает выдумать какой-нибудь смысл? ©Льюис Кэрролл
 
Файл пример надо
 
Вот, во вложении файл. Там три столбца и в одном из них страны. Может через график какой можно посчитать сколько какая страна раз упоминается. Чтоб 3 с лишним тысячи строк вручную не считать и  с ума не сойти))
Спасибо большое
 
Цитата
посчитать сколько какая страна раз упоминается.
Код
Sub KolUniqCountry()
Dim arr
Dim dic As Object
Dim i As Long
Dim iLastRow As Long
    iLastRow = Cells(Rows.Count, "B").End(xlUp).Row
     Range("E1:F" & iLastRow).ClearContents
     Set dic = CreateObject("Scripting.Dictionary"): dic.comparemode = 1
     arr = Range("B2:B" & iLastRow).Value
  For i = 1 To UBound(arr)
    dic.Item(arr(i, 1)) = dic.Item(arr(i, 1)) + 1
  Next i
   Range("E2").Resize(dic.Count, 2) = Application.Transpose(Array(dic.keys, dic.Items))
End Sub
 
самая обычная сводная
По вопросам из тем форума, личку не читаю.
 
Kuzmich, спасибо огромное!
Изменено: vikttur - 23.09.2021 21:30:25
 
а чем простая сводная не устраивает?
 
Формулами для коллекции.
Страницы: 1
Наверх