將特定的單元格復制到另一個工作表

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