excel - 从错误文件复制宏

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

提前致谢。

标签： excelvba

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