使用 VBA 删除最后一张纸的空行

Question

Sub DeleteEmptyRows()
    For b = 1 To 10
        If Worksheets(Sheets.Count).Range(b, 1).Value = "" Then Worksheets(Sheets.Count).Rows(b).Delete
    Next b
End Sub

I am running a macro through Module1 that generates new sheets containing extrapolated data of Sheet1 using Sheets.Add After:=Sheets(Sheets.Count)

I am able to reference the rows of this new sheet using Worksheets(Sheets.Count).Rows(1)

However, I'm unable to make Sub DeleteEmptyRows() work.

Answer 1

Please, try the next way:

Sub DeleteEmptyRows()
   Dim b As Long, ws As Worksheet, rngDel As Range
   
   Set ws = Worksheets(Sheets.Count)
    For b = 1 To 10
        If ws.Range(b, 1).Value = "" Then
            If rngDel Is Nothing Then
                Set rngDel = ws.Range(b, 1)
            Else
                Set rngDel = Union(rngDel, ws.Range(b, 1))
            End If
    Next b
    If Not rngDel Is Nothing Then rngDel.EntireRow.Delete
End Sub