[已解决]如何删除合并单元格的行

KDZ

    各位老师：请帮忙如何用VBA实现将合并单元格的行删除掉｛请见附件），谢谢您！！

最佳答案

月排行榜 / 总排行榜

ppp710715

2017-9-4 10:24

1. Sub t6()
   
2.   Dim rw%, i%
   
3.   rw = Cells(Rows.Count, 2).End(3).Row
   
4.   For i = rw To 3 Step -1
   
5.     If Range("b" & i).MergeCells = True Then
   
6.        Range("a" & i & ":s" & i - 1).UnMerge
   
7.     End If
   
8.   Next
   
9.   For i = rw To 3 Step -1
   
10.    If Application.CountA(Range("k" & i & ":s" & i)) = 0 Then
    
11.        Rows(i).Delete
    
12.     End If
    
13.   Next
    
14. End Sub

复制代码

跳转到最佳答案楼层

ppp710715

1. Sub t6()
   
2.   Dim rw%, i%
   
3.   rw = Cells(Rows.Count, 2).End(3).Row
   
4.   For i = rw To 3 Step -1
   
5.     If Range("b" & i).MergeCells = True Then
   
6.        Range("a" & i & ":s" & i - 1).UnMerge
   
7.     End If
   
8.   Next
   
9.   For i = rw To 3 Step -1
   
10.    If Application.CountA(Range("k" & i & ":s" & i)) = 0 Then
    
11.        Rows(i).Delete
    
12.     End If
    
13.   Next
    
14. End Sub

复制代码

ggluzhekun

感谢分享