Excel2010 データの行数に応じて表を複製し、データを入れたい 削除
| Message#2 2015年2月10日(火)22時39分 From: VBA写真 |
| 以下のマクロで可能だと思います。 Sub Macro2() Dim i, j As Integer Dim MaxR2 As Long Dim コピー回数 As Integer MaxR2 = Workbooks("book2.xls").Worksheets("Sheet1").Cells(2, 1).End(xlDown).Row コピー回数 = (MaxR2 - 2) \ 20 Application.ScreenUpdating = False For j = 0 To コピー回数 If j >= 1 Then Workbooks("book1.xls").Activate Workbooks("book1.xls").Worksheets("Sheet1").Range(Cells(13, 1), Cells(32, 8)).Copy _ Destination:= _ Workbooks("book1.xls").Worksheets("Sheet1").Cells(j * 20 + 13, 1) End If For i = 1 To 7 Workbooks("book2.xls").Activate If i = 1 Then Workbooks("book2.xls").Worksheets("Sheet1").Range(Cells(j * 20 + 2, i), Cells(j * 20 + 21, i)).Copy _ Destination:= _ Workbooks("book1.xls").Worksheets("Sheet1").Cells(j * 20 + 13, i) Else Workbooks("book2.xls").Worksheets("Sheet1").Range(Cells(j * 20 + 2, i), Cells(j * 20 + 21, i)).Copy _ Destination:= _ Workbooks("book1.xls").Worksheets("Sheet1").Cells(j * 20 + 13, i + 1) End If Next i Next j Application.ScreenUpdating = True End Sub よろしくお願いします。 |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。
