Excel VBA：在特定的单元格中设置一个值，然后复制一组单元格并粘贴值，然后迭代该值

我对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