■13479 / inTopicNo.2) |
Re[1]: 値を転記する
|
□投稿者/ よねさん -(2020/10/26(Mon) 08:10:24)
| VBAのコードです。
Sheet1の値をSheet2のA列に1個づつ転記します。
たいして時間がかからないので、配列を使うまでもないと思いました。
Sub test()
Dim i As Long, j As Long
Dim cn As Long
For j = 1 To 100
For i = 1 To 123
cn = cn + 1
Worksheets("Sheet2").Cells(cn, 1).Value = Worksheets("Sheet1").Cells(i, j).Value
Next i
Next j
End Sub
|
|