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

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

1 个答案: