Макрос для многострочного текста

Question

У меня есть лист excel, где в одном столбце Название заголовка «LOTZ» указано в одной ячейке (изменение количества товаров, например, в день 1 есть 7 товаров & день 2 может иметь 1 товар). Мне нужно создать Top 50 товаров за весь год с соответствующим количеством в отдельном листе.

Пример: -

Результат Я хочу, чтобы в новом вставленной листе: -

я могу использовать вкладку DATA 'текст в колонку' но не знаю, как консолидироваться с помощью макрокода.

любая помощь будет очень признательна.

благодаря Monika

Answer 1

Попробуйте это:

Sub consolidate() 
    Dim r As Range, dict As Object, lotz 
    Set dict = CreateObject("Scripting.Dictionary") 
    For Each r In Worksheets("Sheet1").UsedRange.Columns("C").Offset(1).Cells 
     For Each lotz In Split(r.value, vbLf) 
      dict(lotz) = dict(lotz) + 1 
     Next 
    Next 
    With Worksheets.Add 
     .Range("A1:B1").value = Array("LOTZ", "Count") 
     .Range("A2:A" & dict.Count + 1).value = Application.Transpose(dict.Keys) 
     .Range("B2:B" & dict.Count + 1).value = Application.Transpose(dict.Items) 
     .Range("A2:B" & dict.Count + 1).Sort .Range("B2"), xlDescending 
    End With 
End Sub 

EDIT

Если столбец lotz не известен, и вы хотите, чтобы найти его заголовок в строке 1, вы можете использовать это вместо того, чтобы:

For Each r In Worksheets("Sheet1").UsedRange.Find("LOTZ").EntireColumn.SpecialCells(xlCellTypeConstants).Offset(1)