forループ

不連続なセルの値を配列に格納し、for文でループして他のブックのシートに挿入する。

Dim cellsValues As Variant
Dim fromSheet As Worksheet
Set fromSheet = Workbooks(fromWorkbook).Worksheets(fromSheetName)
cellsValues = Array( _
  fromSheet.cells(1,1)……
)

Dim col As Long

For col = 0 To 130 Step 1
Workbooks(toWorkbook).Sheets(toSheetName).cells(rownum, col + 1).Value = cellsValues(col)
Next

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です