Keyword Density

[michal95nh]

Hello, I need help.
I found on this forum an amazing macro.
https://www.mrexcel.com/forum/excel-questions/873686-find-keyword-density-rows-columns.html

Sub MG11Aug55Dim Rng As Range, Dn As Range, n As Long, sp As Variant, omax As Long, R As Variant
Dim K As Variant, Str As String, Lg, NoStr As String
NoStr = "#cat#dog#the#" ' Alter/Add words not to include here !!!!
Set Rng = Range(Range("A1"), Range("A" & Rows.Count).End(xlUp))
With CreateObject("scripting.dictionary")
.CompareMode = vbTextCompare
For Each Dn In Rng
    sp = Split(Dn.Value, " ")
        For Each R In sp
            If Not R = vbNullString And InStr(NoStr, "#" & R & "#") = 0 Then
                If Not .Exists(R) Then
                    .Add R, 1
                Else
                    .Item(R) = .Item(R) + 1
                End If
            End If
        Next R
Next Dn


Lg = Application.Large(.items, 1) ' Change the "1" to 2,3-- for second and third largest
For Each K In .keys
    If .Item(K) = Lg Then
        Str = Str & K & ", "
    End If
Next K
End With
Range("B1") = Left(Str, Len(Str) - 2)
Range("C1") = "Count= " & Lg End Sub

but I don't know how to change for show me per row A results in column B .
A2 -> B2
A3 -> B3
etc.

 

[MickG]

I don't know what this means !!!

but I don't know how to change for show me per row A results in column B .
A2 -> B2
A3 -> B3
etc.

Data is in column "A" and results are in "B & C " !!!

Please show a small example of your data and the expected results (Specifying in what columns )

 

[michal95nh]

I need results for each cell separately.
Some think like that:

 

[MickG]

So you want rows of words in column "Q" the Count of words in column "R" the Criteria in column "S" and the count of Criteria in Column "T", is that correct ????

 

[michal95nh]

R is useless.
I need results for each cell.
Ex. Value in Q3 show me results in S3,T3. This same for Q4 -> S3 and T3. Different result for each cell. Not all in one column/cell.