BLOG一覧
2020年2月11日
VBA

Sub Add()
Dim i As Long
Dim x As Long
For i = 1 To 10
x = i * 3 + 2
Worksheets(“CsvSample1”).Range(“A2:V4”).Copy Worksheets(“CsvSample1”).Cells(x, 1)
Next i

End Sub

Sub Copy()
Dim i As Long
Dim x As Long
Dim mokuteki As Long
Dim count As Long
count = 2
mokuteki = 3
For i = 1 To mokuteki
Worksheets(“CsvSample1”).Cells(count, 9).Copy Worksheets(“Sheet1”).Cells(i, 1)
For x = 2 To 12
Worksheets(“CsvSample1”).Cells(count, 10).Copy Worksheets(“Sheet1”).Cells(i, x)
count = count + 1
Next x
Next i
End Sub

sky_church
2019年12月16日
test3

WordPress へようこそ。こちらは最初の投稿です。編集または削除し、コンテンツ作成を始めてください。

daibutu
2019年12月16日
test2

WordPress へようこそ。こちらは最初の投稿です。編集または削除し、コンテンツ作成を始めてください。

taki
2019年12月16日
test

WordPress へようこそ。こちらは最初の投稿です。編集または削除し、コンテンツ作成を始めてください。

kazaguruma
2019年12月16日
Hello world!

WordPress へようこそ。こちらは最初の投稿です。編集または削除し、コンテンツ作成を始めてください。