Flux导出数据到excel后，存在很多空白行，删除方法如下：

Sub DeleteEmptyRows()
    Dim sh As Worksheet
    For Each sh In ThisWorkbook.Sheets
        sh.Select
        Dim LastRow As Long, r As Long
        LastRow = ActiveSheet.UsedRange.Rows.Count
        LastRow = LastRow + ActiveSheet.UsedRange.Row - 1
        For r = LastRow To 1 Step -1
            If WorksheetFunction.CountA(Rows(r)) = 0 Then Rows(r).Delete
            Next r
    Next
End Sub

其中

    Dim sh As Worksheet
    For Each sh In ThisWorkbook.Sheets
        sh.Select #选中工作表
            ……
    Next

为遍历所有工作表

上述方法不同于删除第一列的空白行。