vba - 如何在单独的工作表中找到特定的单元格值？

Question

我有一段代码在当前工作表中搜索特定单元格值的范围，然后对该列执行操作。宏由同一页面上的表单控制按钮启动。我需要将表单控制按钮移动到不同的工作表，但我不确定如何更新我的代码以仅在 sheet1 中搜索，而不是在按钮所在的工作表中搜索。

下面是我在使用与数据相同的工作表上的按钮时有效的代码。我只需要它来查看 sheet1 而不是当前工作表。

Dim R1 As Range
    Set R1 = Range(Range("A2:AX2").Find("BMA Authorization ID"), Range("A2:AX2").Find("BMA Authorization ID").End(xlDown))
    R1.Select
    R1.Copy
    R1.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Answer 1

使用 With ... End With statement设置范围/单元格父工作表。

with worksheets("Sheet1")   '<~~change to suit
    with .Range(.Range("A2:AX2").Find("BMA Authorization ID"), _
                .Range("A2:AX2").Find("BMA Authorization ID").End(xlDown))
        .value = .value  'same as .Copy .PasteSpecial xlPasteValues
    end with
end with

请注意，所有 Range(...)现在是 .Range(...) .前缀句点(又名 . 或句号)使所有范围的父级成为 With .. End With 中引用的工作表。