Excel 如何使用vba将相同主题分组到第一个主题下

我正在制作一张工作表，它应该使用另一个选项卡上的信息自动更新

最后一步，我仍然需要弄清楚如何做的是，在第一次使用vba显示值时，自动将具有相同值的单元格分组

下面是我希望使用vba实现的一个图像：

---

试试这个

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

---

不幸的是，堆栈溢出不是一种代码编写服务。您必须首先尝试并向我们展示您的代码，以便我们可以帮助调试问题，而不是要求他人为您编写代码。请尝试筛选

项目

列，并使用该范围构建工作表。另外，请阅读查看

Range.Group

非常感谢！！这正是我需要的