合并单元格添加序号

locker00700

如图，需要在“之前”，“未有”之间的行添加序号。合并行数不确定（包括“之前”与“未有”单元格合并后均有可能是1、2、3...行）。
合并单元格序号.rar (9.31 KB, 下载次数: 13)

2018-7-17 11:06 上传

点击文件名下载附件

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   With Worksheets("sheet1")
   
4.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
5.     n = 0
   
6.     For i = 1 To r
   
7.       If .Cells(i, 1).MergeArea.Cells(1, 1).Address = .Cells(i, 1).Address Then
   
8.         If .Cells(i, 1) = "之前" Then
   
9.           n = 1
   
10.         ElseIf .Cells(i, 1) = "未有" Then
    
11.           Exit For
    
12.         Else
    
13.           If n <> 0 Then
    
14.             .Cells(i, 1) = n
    
15.             n = n + 1
    
16.           End If
    
17.         End If
    
18.       End If
    
19.     Next
    
20.   End With
    
21. End Sub
    

复制代码

chxw68

详见附件。

看见星光

1. Sub xh()
   
2.     Dim i&, n&, x&
   
3.     For i = 2 To Cells(Rows.Count, 1).End(3).Row
   
4.         If Cells(i, 1) = "之后" Then Exit For
   
5.         If x Then Cells(i, 1) = Application.Count(Range(Cells(x, 1), Cells(i - 1, 1))) + 1
   
6.         If Cells(i, 1) = "之前" Then x = i
   
7.     Next
   
8. End Sub

复制代码

蓝桥玄霜

请见代码。