Excel2010 データの行数に応じて表を複製し、データを入れたい 削除
| Message#1 2015年2月10日(火)22時16分 From: 初心者VBA |
| Excel2010 データの行数に応じて表を複製し、データを入れたい book1とbook2が、両方立ち上がっており、book2からマクロを実行したいと思います book1.xls (出荷リスト) 、book2.xls (売上明細) book1のA1からH33までの表（A13からH32までデータを入力する）があります。 book1のデータ入力可能部分に、book2のA行、B行、C行、D行、E行、F行、G行のデータを book1のA行、C行、D行、E行、F行、G行、H行に落とし込もうと思っております （B行は空白です） AとA、BとC、CとD、DとE、EとF、FとG、GとH book2のデータが20行以内なら下記で可能ですが行数が不定で、 必ずしも20行以内で終わりません book1とbook2が、両方立ち上がっております Sub Macro2() Application.ScreenUpdating = False Workbooks("book2.xls").Worksheets("Sheet1").Range("A2:A21").Copy Workbooks("book1.xls").Worksheets("Sheet1").Range("A13:A32").PasteSpecial Workbooks("book2.xls").Worksheets("Sheet1").Range("B2:B21").Copy Workbooks("book1.xls").Worksheets("Sheet1").Range("C13:C32").PasteSpecial Workbooks("book2.xls").Worksheets("Sheet1").Range("C2:C21").Copy Workbooks("book1.xls").Worksheets("Sheet1").Range("D13:D32").PasteSpecial Workbooks("book2.xls").Worksheets("Sheet1").Range("D2:D21").Copy Workbooks("book1.xls").Worksheets("Sheet1").Range("E13:E32").PasteSpecial Workbooks("book2.xls").Worksheets("Sheet1").Range("E2:E21").Copy Workbooks("book1.xls").Worksheets("Sheet1").Range("F13:F32").PasteSpecial Workbooks("book2.xls").Worksheets("Sheet1").Range("F2:F21").Copy Workbooks("book1.xls").Worksheets("Sheet1").Range("G13: G32 ").PasteSpecial Workbooks("book2.xls").Worksheets("Sheet1").Range("G2:G21").Copy Workbooks("book1.xls").Worksheets("Sheet1").Range("H13:H32").PasteSpecial Application.ScreenUpdating = True end sub 21行以上の場合、book1のA1からH33までの表を下方部分に複製して、 book2のデータをbook1に落とし込みたいです book1のA1からH33までの表がありますが、次の表はA34からH66、その次はA67からH99 と言った形で1行ずつ下げて、book2のデータ行数に応じてA1からH33の表を複製して、 データを落とし込みたく思います VBAで行なうにはどのようにすれば良いでしょうか？ ご教授下さい |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。
