怎么样用VBA批量删除某一区域空白行

JokerChen94

想选中A列从A12开始到结束的空白单元格，然后删除整行，前面的内容没有问题，但是每次都会报错，请求各位大大教一下，详见附件

cflood

空值不是空白单元格，ctrl+G定位一下空白单元格就明白了

JokerChen94

cflood 发表于 2017-3-7 13:47
空值不是空白单元格，ctrl+G定位一下空白单元格就明白了

也就是删除指定内容为0的单元格所在行吗

JokerChen94

朱荣兴 发表于 2017-3-7 14:02

好了好了，跪谢大大！

lsc900707

倒着删才能删干净。。。。。。

JokerChen94

lsc900707 发表于 2017-3-7 14:24
倒着删才能删干净。。。。。。

原来不是删不干净，每次运行宏的时候都显示应用程序或对象定义错误

wngzhy

Private Sub CommandButton1_Click()
Dim i, j As Long
    j = Worksheets(1).Range("A65536").End(xlUp).Row
        For i = 4 To j
         If Sheets(1).Range("B" & i).Value = "" Then
            Worksheets(1).Range("B" & i).EntireRow.Delete Shift:=xlUp
         End If
         Next i

sxbjzjf110

参与一下，用数组。

tanglf188

删不干净是因为你删了一行，下面的的就提上来了，打个比方你删了第一行，原来的的第二行就是第一行，这时第一行的代码已经运行结束，去执行新的第二行，这样原来的第二行就跑去第一行成了漏网之鱼，你可以加个循环一直删一行，直到这一行为非空，结束循环去执行下一行，这种表格删除空行最好的办法就是数组+字典。