Excel VBA：在特定單元格中設置值，然后復制一組單元格並粘貼值，然后迭代該值

Question

我沒有任何使用Visual Basic的經驗，只是一點Java，但我認為我所要求的非常簡單，所以我希望有人可以伸出援助之手。

在偽代碼方面，

For x=1:200

Set cell C2 in workbook "Output list" to x

Copy cells C3:C14

Paste values (just values, not the formulas) into cells (E+X)3:(E+X)14 (so, F3:F14 for x=1, G3:G14 for x=2, etc)

這是否像我想的那樣簡單？

Answer 1

希望這能讓你朝着正確的方向前進：

Sub tgr()

    Dim i As Long

    With Sheets("Output list")
        For i = 1 To 200
            .Range("C2").Value = i
            .Range("E3:E14").Offset(, i).Value = .Range("C3:C14").Value
        Next i
    End With

End Sub