如何使用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