ここから本文です

Excel2013 マクロについての質問です。

tat********さん

2018/9/2108:56:13

Excel2013 マクロについての質問です。

下記のマクロで
シート2のセルC1に別シートのC列のリストを連続印刷しているのですが、

********

Sub タイトル()

Range("C1").Activate
Do While ActiveCell.Text <> ""
Worksheets(2).Range("C1").Value = ActiveCell.Text
Worksheets(2).Range("B1:U21").PrintOut
ActiveCell.Offset(1, 0).Activate
Loop

End Sub

*******

ところが、下記のようにリストに空白のセルがあると空白の前のセルまで(C2)しか印刷できません。
空白セルを飛ばして連続印刷するにはどうしたらいいでしょうか?

*******

C1 吉田
C2 山田
C3
C4 松田
C5 下田

*******

閲覧数:
33
回答数:
1
お礼:
100枚

違反報告

ベストアンサーに選ばれた回答

プロフィール画像

カテゴリマスター

tra********さん

2018/9/2109:05:29

試してください。

Sub タイトル()
Dim i As Long, sh As Worksheet
Set sh = Worksheets(2)
For i = 1 To Cells(Rows.Count, 3).End(xlUp).Row
With Cells(i, 3)
If .Value <> "" Then
sh.Range("C1").Value = .Text
sh.Range("B1:U21").PrintOut
End If
End With
Loop
End Sub

  • 質問者

    tat********さん

    2018/9/2109:39:52

    早々にご回答下さいましてありがとうございます。
    試してみたところ

    『コンパイルエラー:LOOPに対応するDOがありません』

    と表示され印刷できませんでした。

    こちらの説明不足だったのかもしれないのですが、リストの最初の行が空白だと使用できないのでしょうか?

  • その他の返信(2件)を表示

返信を取り消しますが
よろしいですか?

  • 取り消す
  • キャンセル

この質問につけられたタグ

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる