3

私は 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)

これは私が思うほど簡単ですか？

4

1 に答える 1

6

うまくいけば、これで正しい方向に進むことができます：

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
于 2013-08-22T22:57:05.183 に答える