VBA Excel ForEach工作表循环
第一次海报,初级VBA编剧在这里。我已经研究了StackOverflow的相关问题,我的问题的答案只是假设的,所以我要求一些澄清。以下Excel VBA脚本用于删除90页工作簿顶部的所有空行。当我运行脚本时,它只影响我打开的工作表。为什么它不会在所有的床单上循环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 =
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
工作。非常感谢,我工作得很好。非常感谢。这似乎回答了这个问题,但你应该指出你的代码的作用,而不是单独发布。这似乎回答了这个问题,但你应该指出你的代码的作用,而不是单独发布