[已解决]Range("a4:h" & myrow)区域是运行代码得到的数据,有空单元格

hcy1185

Range("a4:h" & myrow)区域是运行代码得到的数据,有空单元格,必须逐个选定空单元格,按delete键后才能再进行运算,请问如何一次选定所有空单元格?下面代码不对,请指教!谢谢!
Sub 选定空单元格() '清除空单元格
    Dim myrow As Integer
    myrow = Range("b65536").End(xlUp).Row
    ar = Range("a4:h" & myrow)
    For i = 1 To UBound(ar)
    For j = 1 To UBound(ar, 2)
        If Cells(i, j).Value = "" Then
            Cells(i, j).ClearContents
        End If
    Next j, i
End Sub

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-3-15 23:09

1. Range("a4:h" & myrow).SpecialCells(xlCellTypeBlanks)

复制代码

跳转到最佳答案楼层

hwc2ycy

你用区域定位嘛，定位空单元格。

hwc2ycy

1. Range("a4:h" & myrow).SpecialCells(xlCellTypeBlanks)

复制代码

hcy1185

hwc2ycy 发表于 2013-3-15 23:09

请老师修改一下代码好吗?谢谢!!!

dsjohn

Sub 选定空单元格()
Dim myrow As Integer
    myrow = Range("b65536").End(xlUp).Row
    Range("a4:h" & myrow).SpecialCells(xlCellTypeBlanks).ClearContents
End Sub

无聊的疯子

hcy1185 发表于 2013-3-16 08:20
请老师修改一下代码好吗?谢谢!!!

不知道你是怎么操作的，楼上漂亮姐姐用的返回一个 Range 对像，
这就可以使用 Range 的所有方法属性
比如

1. 
   
2.     with Range("a4:h" & myrow).SpecialCells(xlCellTypeBlanks)
   
3.          msgbox .address    ‘返回这些单元格的地址’
   
4.          .select          ‘选择这些单元格’
   
5.     end with
   

复制代码