將單元格從一個單元格複製到另一個單元格 - 目標地址是單元格中的一個字符串

Question

我有兩張工作表（稱爲ONE和TWO）。我想將一個固定範圍的單元格從一個複製到另一個目標中。但TWO中的目標地址是ONE中固定單元格中的字符串值。

例如，ONE！C37的字符串值爲「A1500」。我想複製一個單元格！A32：ONE！W32到TWO！A1500。而且，由於ONE！C37單元格中字符串的值發生變化，因此TWO中的目標目標值也會發生變化。

一定很容易，但我看不出如何做到這一點。任何幫助將不勝感激。

Answer 1

豐富。試試這個：

Sub movetosheet2() 
Dim sheet_one_rng As Range: 
Dim sheet_two_rng As Range: 
Dim sheet_two_address As String: 

Set sheet_one_rng = Worksheets("Sheet1").Range("A1:B5") 
'Set the range from sheet 1 you'd like to copy onto sheet two 

sheet_two_address = Worksheets("Sheet1").Range("D1").Value 
'Supposing your location of "A1500" is stored in cell D1 on Sheet1 
'Note that the value of the D1 cell needs to be A1500:A1500 
'and NOT just A1500 
'You are essentially generating a string to pass into a range argument 

'Set the destination range on Sheet 2 using your string 

Set sheet_two_rng = Worksheets("Sheet2").Range(sheet_two_address) 
'Use the Range.Copy method 
sheet_one_rng.Copy Destination:=sheet_two_rng 

End Sub 

希望有幫助！

Answer 2

嘗試下面的代碼：

Sub CopyRange() 

Dim RngSource   As Range 
Dim RngDest    As Range 
Dim DestString   As String 


' set source range from sheet "ONE" 
Set RngSource = Sheets("ONE").Range("A32:W32") 

' read destination range from cell "A37" in sheet "ONE" 
DestString = Sheets("ONE").Range("A37").Value 

' set destination range from sheet "TWO" 
Set RngDest = Sheets("TWO").Range(DestString) 

' copy from Sheet "ONE" to Sheet "TWO" 
RngSource.Copy Destination:=RngDest 

End Sub 

Answer 3

你只需要一條線：

Worksheets("ONE").Range("A32:W32").Copy Destination:=Worksheets("TWO").Range(Worksheets("ONE").Range("C37").Value) 

，或者使用With-End With塊和避免一些重複：

With Worksheets("ONE") 
    .Range("A32:W32").Copy Destination:=Worksheets("TWO").Range(.Range("C37").Value) 
End With