[已解决]删除两列单元格区域中的空单元格

bosao

需要将M3:N20单元格区域中的空单元格删除。但执行以下代码后只能删除M列的空单元格，而N列无效，请问如何修改代码？

    Range("M3:N2000").Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.Delete Shift:=xlUp

最佳答案

月排行榜 / 总排行榜

dongqing1998

2013-11-7 06:29

1. Sub 删除空单元格()
   
2.     Dim rng As Range, r As Range
   
3.     For Each rng In Range("M3:N2000")
   
4.         If rng = "" Then
   
5.             If r Is Nothing Then
   
6.                 Set r = rng
   
7.             Else
   
8.                 Set r = Union(r, rng)
   
9.             End If
   
10.         End If
    
11.     Next
    
12.     If Not r Is Nothing Then r.Delete shift:=xlUp
    
13. End Sub

复制代码

上面代码虽然可以达到要求(只是做了少量数据测试)，感觉不如用数组效率高

跳转到最佳答案楼层

dongqing1998

1. Sub 删除空单元格()
   
2.     Dim rng As Range, r As Range
   
3.     For Each rng In Range("M3:N2000")
   
4.         If rng = "" Then
   
5.             If r Is Nothing Then
   
6.                 Set r = rng
   
7.             Else
   
8.                 Set r = Union(r, rng)
   
9.             End If
   
10.         End If
    
11.     Next
    
12.     If Not r Is Nothing Then r.Delete shift:=xlUp
    
13. End Sub

复制代码

上面代码虽然可以达到要求(只是做了少量数据测试)，感觉不如用数组效率高

大灰狼1976

1. Range("M3:N2000").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp

复制代码