こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

マクロ編集プリントアウト

Sheets("Sheet1").Select
Selection.Copy

Sheets("Sheet2").Select
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sheet4").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Sheets("Sheet1").Select
Range("A9").Select

Sheets("Sheet1").Select
Selection.Copy

Sheets("Sheet2").Select
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sheet4").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Sheets("Sheet1").Select
Range("A15").Select

これで2回プリントアウトされていることになります。
6行ずつ下方にデータが続いています。
データ行数は常に変化します。

dim i as long
 for i = 3 to 99 step 6
  if worksheets("Sheet1").cells(i, "A") = "" then
   worksheets("Sheet2").range("A3:H8").value = worksheets("Sheet1").cells(i - 6, "A").resize(6, 8).value
   
  end if
 next i

を使用してうまくまとめることはできるでしょうか?

投稿日時 - 2011-04-11 01:18:12

QNo.6659914

すぐに回答ほしいです

質問者が選んだベストアンサー

sub macro1r1()
 dim i as long
 for i = 3 to 10000 step 6
  if worksheets("Sheet1").cells(i, "A") = "" then
  exit sub
  end if
  worksheets("Sheet2").range("A3:H8").value = worksheets("Sheet1").cells(i, "A").resize(6, 8).value
  worksheets("Sheet4").printout
 next i
end sub

投稿日時 - 2011-04-11 02:02:37

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問