FeedBack Sentence Extractor in Excel

[sanket_sk]

Hi Fluff,

Creating a new thread for feedback extractor.

Although the below solution works very well, however, is it extracting only common words, Please help me build VBA code that will help extract common sentences with intervention counts in descending order..

Example...

1. “Power problem-solve” -100
2. “Cleaning done” – 96
3. “Feature Explanation”- 87…. And so on

Currently available code

Sub sanket_sk()

Dim Cl As Range

Dim Dic As Object

Dim Sp As Variant

Dim i As Long



Set Dic = CreateObject("scripting.dictionary")

With Sheets("Sheet1")

For Each Cl In .Range("D2", .Range("D" & Rows.Count).End(xlUp))

Sp = Split(Cl.Value, " ")

For i = 0 To UBound(Sp)

Dic.Item(Sp(i)) = Dic.Item(Sp(i)) + 1

Next i

Next Cl

End With

Sheets("Sheet2").Range("A2").Resize(Dic.Count, 2).Value = Application.Transpose(Array(Dic.Keys, Dic.Items))

End Sub

Thanks & Regards,

Sanket