Добрый день. Изыскал весь интернет и форум, но не нашел ничего. Помогите, кто сталкивался, пожалуйста. Есть задача: 3 столбца, 3334 строки. В одном из столбцов имейлы, во втором страны и в третьем города. Нужно посчитать какое количество стран упоминается в документе (в числовом или процентном выражении). Например, США указано 250 раз, Аргентина 350. Помогите, люди добрые)
Вот, во вложении файл. Там три столбца и в одном из них страны. Может через график какой можно посчитать сколько какая страна раз упоминается. Чтоб 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