|
▼ねも さん:
>1行目から13行までは見出し部分で印刷します。
印刷するんですよね?!
>A列の14行からA列のデータがあるまでをI列まで広げて印刷したいのです。
こちらも印刷するんですよね?!
なら、A1からA列のデータのある範囲をI列まで広げた範囲ですか??
下のマクロでちょっと確認してみてください。
当たっているのがあるかな?
Sub test()
'A1からA列のデータのあるまでをI列まで広げた範囲
Range(Range("A1"), Range("A65536").End(xlUp)).Resize(, 9).Select
MsgBox Range(Range("A1"), Range("A65536").End(xlUp)).Resize(, 9).Address
'A1からA13までをI列まで広げた範囲
Range("A1").Resize(13, 9).Select
MsgBox Range("A1").Resize(13, 9).Address
'A14からA列のデータのある範囲をI列まで広げた範囲
Range(Range("A14"), Range("A65536").End(xlUp)).Resize(, 9).Select
MsgBox Range(Range("A14"), Range("A65536").End(xlUp)).Resize(, 9).Address
End Sub
|
|