VBA Excel ForEach工作表循环

VBA Excel ForEach工作表循环,excel,vba,Excel,Vba,第一次海报,初级VBA编剧在这里。我已经研究了StackOverflow的相关问题,我的问题的答案只是假设的,所以我要求一些澄清。以下Excel VBA脚本用于删除90页工作簿顶部的所有空行。当我运行脚本时,它只影响我打开的工作表。为什么它不会在所有的床单上循环 Sub Macro1() Dim j As Long Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets For j =

第一次海报,初级VBA编剧在这里。我已经研究了StackOverflow的相关问题,我的问题的答案只是假设的,所以我要求一些澄清。以下Excel VBA脚本用于删除90页工作簿顶部的所有空行。当我运行脚本时,它只影响我打开的工作表。为什么它不会在所有的床单上循环

Sub Macro1()

    Dim j As Long
    Dim ws As Worksheet

    For Each ws In ActiveWorkbook.Worksheets
        For j = 10 To 1 Step -1
            If Cells(j, 3) = "" Then
                Rows(j).Delete
            End If
        Next j
    Next

End Sub

您需要告诉它在If语句和delete命令中查看所需的工作表:

Sub Macro1()

Dim j As Long
Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets
    For j = 10 To 1 Step -1
        If ws.Cells(j, 3) = "" Then
            ws.Rows(j).Delete
        End If
    Next j
Next

End Sub

您需要告诉它在If语句和delete命令中查看所需的工作表:

Sub Macro1()

Dim j As Long
Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets
    For j = 10 To 1 Step -1
        If ws.Cells(j, 3) = "" Then
            ws.Rows(j).Delete
        End If
    Next j
Next

End Sub

工作。非常感谢,我工作得很好。非常感谢。这似乎回答了这个问题,但你应该指出你的代码的作用,而不是单独发布。这似乎回答了这个问题,但你应该指出你的代码的作用,而不是单独发布