2
Q
按值分组
A
回答
4
试试这个
Sub demo()
Dim r As Range
Dim v As Variant
Dim i As Long, j As Long
With ActiveSheet
On Error Resume Next
' expand all groups on sheet
.Outline.ShowLevels RowLevels:=8
' remove any existing groups
.Rows.Ungroup
On Error GoTo 0
Set r = .Range("B1", .Cells(.Rows.Count, 2).End(xlUp))
End With
With r
'identify common groups in column B
j = 1
v = .Cells(j, 1).Value
For i = 2 To .Rows.Count
If v <> .Cells(i, 1) Then
' Colum B changed, create group
v = .Cells(i, 1)
If i > j + 1 Then
.Cells(j + 1, 1).Resize(i - j - 1, 1).Rows.Group
End If
j = i
v = .Cells(j, 1).Value
End If
Next
' create last group
If i > j + 1 Then
.Cells(j + 1, 1).Resize(i - j - 1, 1).Rows.Group
End If
' collapse all groups
.Parent.Outline.ShowLevels RowLevels:=1
End With
End Sub
相关问题
- 1. 按值组分组
- 2. 按列值分组
- 3. 按空值分组
- 4. 按MAX()值分组?
- 5. 按部分值分组
- 6. 按值分组数组
- 7. 按多个值分组
- 8. 按列值分组的行
- 9. 按特定值分组
- 10. SQL - 按不同值分组
- 11. 按常见值分组
- 12. 分组值按日期
- 13. Crystal Reports按值分组
- 14. Sql Table按值分组
- 15. ODOO:按字段值分组
- 16. 按值分组数据按第一列
- 17. SQL:按值1分组,按“不”value1?
- 18. 按切分范围分组的数值
- 19. 按特定值分组多维数组
- 20. 按两个值分组多维数组
- 21. 按特定值分组多维数组?
- 22. PHP - 按键值分组数组
- 23. 按空值和非空值分组
- 24. apache pig,按值分组的值排列
- 25. SSRS:按时间戳分组按行和按来源拆分值
- 26. 按日期分组按日期分组
- 27. 按组分类分组
- 28. 按数值划分/按值拆分
- 29. Python:按多列分组的值线图
- 30. 我如何按字段值分组?
非常感谢你,这就是它!在某个地方有点小事,因为它停止工作,当它找到只有一条相同的线,例如。 'text1 text1 text1' **'text2' **'text3 text3'。 – gaffcz
@gaffcz我用稍微不同的方式解决了这个错误:查看更新代码 –
太好了,谢谢! – gaffcz