求一个按序号自动分组的代码

64968650

如原数据表H列以00结尾的在A2单元格会编一个大序号,其下以非00结尾的会编小序号,求一个以此规律排序号的自动分组的代码，原数据和效果图均在表内。

huang1314wei

楼主，如果你会拉透视表，拉拉透视表也蛮不错的，为什么要用VBA，代码如下：

1. Sub txt()
   
2.     Dim arr, i%, j%, x%
   
3.     Range("A2:A1048576").ClearContents
   
4.     arr = Range("A1").CurrentRegion
   
5.     On Error GoTo 1
   
6.     For i = 2 To UBound(arr)
   
7.         If Right(arr(i, 8), 2) = "00" Then
   
8.             j = j + 1
   
9.             arr(i, 1) = j
   
10.             Do
    
11.             i = i + 1
    
12.             x = x + 1
    
13.             arr(i, 1) = x
    
14.             Loop Until Right(arr(i + 1, 8), 2) = "00"
    
15.         End If
    
16.         x = 0
    
17.     Next
    
18. 1:    Range("A1").CurrentRegion = arr
    
19. End Sub

复制代码

huang1314wei

附件参考：

乱序产品号1.rar (24.02 KB, 下载次数: 36)

2015-10-5 22:29 上传

点击文件名下载附件

64968650

饿，可能是我表达错误,huang1314wei老师的代码是将序号用VBA自动填写，但其实是我想给这个序号进行分组,请参考效果图的分组

64968650

请各位老师帮帮忙~

wxh_wf

你可以先利用公式写出层级，再根据层级重新编号为1.1.1，然后在分组，这几步在论坛里都有帖子