VBA查找空行2 判断.删除

【2】VBA有数据区域中空行VBA查找空行    

4/vba的for和if结合应用，为什么跳出循环_百度知道  https://zhidao.baidu.com/question/1738436076264460227.html?fr=iks&word=vba%CD%CB%B3%F6if&ie=gbk

  Sub A()

For i = Cells(1, Columns.Count).End(1).Column To 1 Step -1

If Cells(1, i) = "" Or Cells(1, i) = 0 Then

Cells(1, i).Select

Selection.Insert Shift:=xlToRight

End If

Next

End Sub

-----

3.1/有数据区域空行查找并作标记

 Sub blankRow1()   '有数据区域空行查找并作标记

  Dim mhh6 As Integer, bRow As Integer, n As Integer

  mhh6 = ActiveSheet.UsedRange.Rows.Count  'OK! '求得行号,得12，当前工作表最大有数据行实际为12行

    Debug.Print mhh6

 For bRow = 11 To mhh6 Step 1  'a6-1

     '表3前空行:大a11,广b15,新c16,桐cd17,其它可不计;a6-2,

     'Debug.Print bRow

   If Cells(bRow, 1) = 0 And Cells(bRow, 3) = 0 And Cells(bRow, 7) = 0 Then 'a6-3

     Cells(bRow, 1) = "t" & bRow  'a6-4，'给空行作标记

     End If  'a6-5

   Next bRow 'a6-6

    Cells(99, 1) = mhh6 '将最大行数值写入单元格A99

 End Sub

3/有数据区域空行.查找、作标记

  '求最大列号

  mlh6 = ActiveSheet.UsedRange.Columns.Count  '求当前工作表有数据区域的最大列号，

    Debug.Print mlh6

    Cells(99, 3) = mlh6

'求最大行号

  mhh6 = Range("A1").CurrentRegion.Rows.Count 'Ok！从产量产值表计。

  'mhh6 = ActiveSheet.UsedRange.Rows.Count  'OK! '求行号,得12，当前工作表有数据区域的最大行号，实际为12行

    Debug.Print mhh6

    Cells(mhh6 + 1, 1) = "t2"

  mhh6 = Range("A1").CurrentRegion.Rows.Count 'Ok！从产量产值表计。

    Debug.Print mhh6

    Cells(mhh6 + 1, 1) = "t3"

  mhh6 = Range("A1").CurrentRegion.Rows.Count 'Ok！从产量产值表计。

    Debug.Print mhh6

    Cells(99, 2) = mhh6  '将有数据区域的最大行号存入range("B99")，数值型

2/VBA一键删除数据表中的空行（2018_3）

http://www.360doc.com/content/18/0328/23/30583536_741113246.shtml

Sub deleblankrow()

   Dim Frow, Erow, j As Integer

   Frow = ActiveSheet.UsedRange.Row '获取第一个非空行的行号

   Erow = Frow ActiveSheet.UsedRange.Rows.Count - 1 '获取最后一个非空行的行号

   For j = Erow To 1 Step -1 '从数据最后一行依次向上查找，找到一个空行删除一行

      If Application.WorksheetFunction.CountA(Rows(j)) = 0 Then

         Rows(j).Delete

      End If

   Next j

  End Sub

1如何用VBA判断空行并删除

https://wenda.so.com/q/1504710920214877

【】