検索プログラマのメモ帳

壁にぶつかったら検索で調べるプログラマのちょっと遅れたメモ帳。たまに自分で挑戦する。

Skip to: Content | Sidebar | Footer

forループ

4 2月, 2009 (10:42) | VBA・エクセル | By: admin

不連続なセルの値を配列に格納し、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

Write a comment