Как сгруппировать одинаковые темы по первой, используя vba

Question

Я создаю лист, который должен автоматически обновляться с использованием информации на другой вкладке.

Последний шаг, который мне еще предстоит выяснить, как это сделать, - это автоматическая группировка ячеек с одинаковым значением подВпервые это значение появляется с помощью vba.

Вот изображение того, чего я хотел бы достичь с помощью vba:

Answer 1

Попробуй это ...

Option Explicit
Public Sub Group()

Dim rng As Range
Dim LastRow As Long
Dim RowsInRange As Long
Dim i As Long

With ThisWorkbook.Sheets("Sheet1")
 LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
End With

For i = 4 To LastRow

Do While ThisWorkbook.Sheets("Sheet1").Cells(i, 1) = ThisWorkbook.Sheets("Sheet1").Cells(i + 1, 1)
RowsInRange = RowsInRange + 1
i = i + 1
Loop

ThisWorkbook.Sheets("Sheet1").Cells(i - RowsInRange, 1).Font.Bold = True
Set rng = Range(Cells(i - RowsInRange + 1, 1), Cells(i, 1))
rng.Select
Selection.Rows.Group

RowsInRange = 0

Next

End Sub