копировать ячейки с одного листа на другой - где целевой адрес является строкой в ​​ячейке

Question

У меня есть два листа (назовите их ОДИН и ДВА). Я хочу скопировать фиксированный диапазон ячеек из ONE в цель в два раза. Но целевой адрес в TWO является строковым значением в фиксированной ячейке в ONE.

Например, ONE! C37 имеет строковое значение «A1500». И я хочу скопировать ячейки из ONE! 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