我有一个要在A列中包含唯一编号的电子表格，我希望将其与显示的父行分组在一起。例如：
我希望它以这种方式显示，并在其唯一编号下方将注释分组（在excel中为shift + alt + right）。
崩溃，它看起来像：
加号实际上不在单元格中，而只是显示在父级下面有子行。希望获得答案。提前非常感谢您
agercaigao 回答：VBA将相似数据与新的父行分组
我认为您的问题更适合使用Excel过滤器而不是VBA。但是，如果您真的想使用VBA，下面的代码将按照您的描述进行操作，也许您可以将其用作实现目标的起点。
.select语句应全部删除。它们就在那里，因此您可以逐步学习代码的功能，如动画gif所示，其中显示了代码的工作原理。然后，最后用鼠标右键单击隐藏行即可取消隐藏它们。
Option Explicit
Sub groupAndHideRows()
Dim sh As Worksheet,r As Range
Set sh = ActiveSheet
'group rows
Set r = sh.Range("A1")
While r <> ""
sh.Rows(r.Row).Insert Shift:=xlDown,CopyOrigin:=xlFormatFromLeftOrAbove
r.Select
r.Offset(-1,0) = Left(r,5)
While Left(r,5) = Left(r.Offset(1,0),5)
Set r = r.Offset(1,0)
r.Select
Wend
Set r = r.Offset(1,0)
Wend
'hide rows
Set r = sh.Range("A1")
While r <> ""
r.Select
If Not IsNumeric(r) Then sh.Rows(r.Row).EntireRow.Hidden = True
Set r = r.Offset(1,0)
Wend
End Sub