logoSign upLog in
George Dimitrov

George Dimitrov

How to get most used word in excel: Column A = String Column B = Word Column C = Number of times used Sub Ftable() Dim BigString As String, I As Long, J As Long, K As Long BigString = "" For Each r In Selection BigString = BigString & " " & r.Value Next r BigString = Trim(BigString) ary = Split(BigString, " ") Dim cl As Collection Set cl = New Collection For Each a In ary On Error Resume Next cl.Add a, CStr(a) Next a For I = 1 To cl.Count v = cl(I) Cells(I, "B").Value = v J = 0 For Each a In ary If a = v Then J = J + 1 Next a Cells(I, "C") = J Next I End Sub

Relevant