Question

美好的一天，

我正在尝试将特定单元格从一个工作表复制到另一个工作表。在这种情况下，我需要在按钮点击时将第一张纸的4个单元格（B4，B14，B22，G22）复制到第二张纸张的单元格（R5，R15，R24，W24）中。

Private Sub CommandButton1_Click()
Sheets("Approver").Select
Range("B4").Select
Selection.Copy
Sheets("Request").Select
Sheets("Request").Range("R5").PasteSpecial Paste:=xlPasteValues
End Sub

我可以让第一个字段复制正常，但是当我尝试全部4个字段时，它会丢弃错误。我认为有一些我缺少的东西让这个工作？非常感谢任何帮助。

Answer 1

一种方式就是这样 - 循环遍历一组地址。此外，您可以直接传输值，比复制和粘贴值更有效。另外，尽可能避免使用Select。

Private Sub CommandButton1_Click()

Dim v1, v2, i As Long

v1 = Array("B4", "B14", "B22", "G22")
v2 = Array("R5", "R15", "R24", "W24")

For i = LBound(v1) To UBound(v1)
    Sheets("Request").Range(v2(i)).Value = Sheets("Approver").Range(v1(i)).Value
Next i

End Sub

将特定单元格复制到另一个工作表

1 个答案: