vba - 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