VBA工作表切换

我有两个工作簿。 我需要在第二个工作簿上应用一个if else条件，并使用VBA将if的输出保存在第一个工作簿的单元格中。 我的代码如下所示：

Sub plan() Dim i As Integer, wb As Workbook For i = 4 To 100 ActivateWB ("Bhandup Plan 11.xls") If Workbooks("Bhandup Plan 11.xls").Sheets("Sheet1").Cells(i, 11).Value > 0 _ Or Workbooks("Bhandup Plan 11.xls").Sheets("Sheet1").Cells(i, 12).Value > 0 Then Workbooks("premium solver.xls").Sheets("AHMD").Cells(i, 1).Value = _ Workbooks("Bhandup Plan 11.xls").Sheets("Sheet1").Cells(i, 2).Value End If Next i End Sub 

Answer 1

打开两个Workbooks 。 编辑子代码：

 Sub plan() Dim i As Integer For i = 4 To 100 If Workbooks("Bhandup Plan 11.xls").Sheets("Sheet1").Cells(i, 11).Value > 0 _ Or Workbooks("Bhandup Plan 11.xls").Sheets("Sheet1").Cells(i, 12).Value > 0 Then Workbooks("premium solver.xls").Sheets("AHMD").Cells(i, 1).Value = _ Workbooks("Bhandup Plan 11.xls").Sheets("Sheet1").Cells(i, 2).Value End If Next i End Sub 

如果您收到此错误：下标超出范围（错误9） ，这意味着您提供的名称之一是不正确的或其中一个工作簿不打开。 所以检查拼写，空格等，确保两个工作簿都打开。