vba删除excel中空白的行

vba删除excel中空白的行

-------------------------

Public Sub 删除为空的行()

     Dim Hang As Long

     Dim ZhHang_1 As Long

     Dim ZhLie_A As Long

   '---计算最后行---自定义04页签-数据源页签

    With Worksheets("A02调整")

         ZhLie_A = .Cells(1, .Columns.Count).End(xlToLeft).Column

    End With

    With Worksheets("A02调整")

         ZhHang_1 = 0

         For Lie = 1 To ZhLie_A

              If ZhHang_1 < .Cells(.Rows.Count, Lie).End(xlUp).Row Then

                     ZhHang_1 = .Cells(.Rows.Count, Lie).End(xlUp).Row

              End If

         Next

    End With

   '---删除第1列-----为空的行

    With Worksheets("A02调整")

         For Hang = ZhHang_1 To 2 Step -1

              If .Cells(Hang, 1).Value = "" Then

                   .Rows(Hang).Delete

              End If

         Next

    End With

   '---****************************************

   '---计算最后行---自定义04页签-数据源页签

    With Worksheets("A02调整")

         ZhLie_A = .Cells(1, .Columns.Count).End(xlToLeft).Column

    End With

    With Worksheets("A02调整")

         ZhHang_1 = 0

         For Lie = 1 To ZhLie_A

              If ZhHang_1 < .Cells(.Rows.Count, Lie).End(xlUp).Row Then

                     ZhHang_1 = .Cells(.Rows.Count, Lie).End(xlUp).Row

              End If

         Next

    End With

   '---删除第2列-----为空的行

    With Worksheets("A02调整")

         For Hang = ZhHang_1 To 2 Step -1

              If .Cells(Hang, 2).Value = "" Then

                   .Rows(Hang).Delete

              End If

         Next

    End With

End Sub