Как я могу скопировать и вставить в столбцы?

Question

Я сделал некоторую модель в Excel, где мне сначала нужно вручную скопировать значения из H24: H25 и специальной вставки в B29: B30, а затем мне нужно скопировать значения из B29: B30 в таблицу с таким диапазоном: G30 : M31, но в первом цикле мне нужно вставить его в G30: G31 (это 1-й год), во втором в H30: 31 ... и в последнем цикле мне нужно вставить из B29: 30 в M30: M31 (7-й) год)

Sub MAKRO()
    Dim Year As Integer
    For Year = 1 To 7
    Range("K45") = Year
    Range("H24:H25").Select
    Selection.Copy
    Range("B29:B30").Select
    Selection.PasteSpecial Paste:=xlPasteValues
    Range("B29:B30").Select
    Selection.Copy
    Range(I cant figure out this part)
    Selection.PasteSpecial Paste:=xlPasteValues
    Next Year
End Sub

Answer 1

Лучший способ написать это было бы примерно так:

Dim WS as worksheet

Set WS = Thisworkbook.sheets("Sheet Name")
    For i = 1 to 7
        WS.Range(YearRange) = i
        WS.Range(DestinationRange).Offset(0,I).value2 = WS.Range(SourceRange).value2
    Next i

Остальное (и как именно использовать смещение) оставлено для читателя как упражнение ...

Обратите внимание, что вам нужно заполнить диапазон назначения (например, A1: A2)