EXCELVBA判断单元格是否为空

更新时间：2018-04-26 17:05:45 147次访问

求VBA代码

如上图   判断 C 到 I 是否全部为空，是 则删除这一整行。如第七行将被删除。谢谢谢谢

代码：

Sub 删空()

    hs = 2

    Do While Cells(hs, 1) <> ""

       cd = 0

       js = 3

       Do While js <= 9

          cd = Len(Cells(hs, js))

          js = js + 1

       Loop

       If cd = 0 Then

          Rows(hs).Select

          Selection.Delete Shift:=xlUp

       End If

       hs = hs + 1

    Loop

End Sub

注意：代码上传的时候，可能会有部分丢失，以图中代码为准！

图中18-32行是处理前数据的备份；

图中1-12行，是处理完毕的效果！