如何用VBA多列单元格合并

wycjsha

请各位老师帮忙看下这个如何用VBA多列单元格合并

zhong1218

1. Sub aa()
   
2. Dim lr
   
3. Application.DisplayAlerts = False
   
4. lr = Cells(Rows.Count, 2).End(3).Row
   
5. For i = lr To 2 Step -1
   
6.     If Cells(i, 2).Value = Cells(i - 1, 2).Value Then
   
7.         Range(Cells(i, 1), Cells(i - 1, 1)).Merge
   
8.         Range(Cells(i, 2), Cells(i - 1, 2)).Merge
   
9.         Range(Cells(i, 3), Cells(i - 1, 3)).Merge
   
10.     End If
    
11. Next i
    
12. For i = 1 To lr
    
13.     n = n + 1
    
14.     l = Range("a" & i).MergeArea.Count
    
15.     If l > 1 Then
    
16.         Cells(i, "a") = n
    
17.         i = i + l - 1
    
18.     Else
    
19.         Cells(i, "a") = n
    
20.     End If
    
21. Next i
    
22. Application.DisplayAlerts = True
    
23. End Sub

复制代码

wycjsha

zhong1218 发表于 2014-1-10 22:03

多谢老师。

zj98768

楼上是我QQ头像