Question

我正在使用宏并使用下面的代码，基本上我正在检查“ Sheet2”中的值，如果我发现了值，那么我将从同一张Sheet2的第33列中复制相应的值并将其粘贴到Sheet3中。 >

这些值不是从Sheet2复制值，而是从Sheet1复制它。任何帮助表示赞赏。

     If Worksheets("Sheet2").Cells(i, 4).Value = "check value" Then
ival= Cells(i, 5).Value
B = Worksheets("Sheet3").Cells(Rows.Count, 1).End(xlUp).Row
Worksheets("Sheet3").Cells(i, 1).Value = ival

谢谢。

Answer 1

确保您所有的范围都限定于特定工作表，或者它们默认为活动工作表

With Worksheets("Sheet2")
    If .Cells(i, 4).Value = "check value" Then
        Worksheets("Sheet3").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).value = _
                         .Cells(i, 5).Value
    End If
End With

从错误的文件进行宏复制

1 个答案: