对于每个循环需要指导

这个想法是我想要评估在工作簿中的每个Ws给定的标准在VBA。 如果符合标准，我希望它做一些事情。 如果不符合，我想去下一个ws。 我知道这是简单的东西。 任何帮助将非常感激

这是我迄今为止。

Sub dataconsol() Dim Ws As Worksheet For Each Ws In ThisWorkbook.Worksheets If ActiveSheet.Range("B9").Value = 1 Then Range("A1").Value = 2 ElseIf Range("b9").Value <> 1 Then End If Next Ws End Sub 

Answer 1

你的代码很好。 把ActiveSheet切换到Ws，就像你的情况一样ActiveSheet总是'Sheet1'。

 Sub dataconsol() Dim Ws As Worksheet For Each Ws In ThisWorkbook.Worksheets With Ws If .Range("B9").Value = 1 Then .Range("A1").Value = 2 ElseIf .Range("b9").Value <> 1 Then End If End With Next Ws End Sub 

或者如果你想使用ActiveSheet：

 Sub dataconsol2() Dim Ws As Worksheet For Each Ws In ThisWorkbook.Worksheets Ws.Activate If Range("B9").Value = 1 Then Range("A1").Value = 2 ElseIf Range("b9").Value <> 1 Then End If Next Ws End Sub