QNo.2826776の質問の続き 表から別シートに一覧表を作成したいのですが

質問

質問の続きになってしまうのですが
sheet1からsheet2へ転記するVBA

Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("Sheet2").Cells.ClearContents
Sheets("Sheet2").Cells(1, 1).Value = "日付"
Sheets("Sheet2").Cells(1, 2).Value = "応援に行く人"
Sheets("Sheet2").Cells(1, 3).Value = "応援をもらう店舗"
r2 = 1
For r = 2 To Range("A65536").End(xlUp).Row
For c = 2 To 256
If Cells(r, c) <> "" Then
r2 = r2 + 1
Sheets("Sheet2").Cells(r2, 1).Value = Sheets("Sheet1").Cells(r, 1)
Sheets("Sheet2").Cells(r2, 2).Value = Sheets("Sheet1").Cells(1, c)
Sheets("Sheet2").Cells(r2, 3).Value = Sheets("Sheet1").Cells(r, c)
End If
Next c
Next r
End Sub
と教えていただきました。
もうひとつ条件を入れたいのですが「"休"を無視する」
座標やシート名の入れ替えは理解できたのですが、やはり難しく
ここを頼ってしまいました。教えてください。よろしくお願いします。

回答No.3

pc_knight · ベストアンサー

E-XCEL様のご質問内容を良く理解せず、小生こそあせってANo.2にて愚かな補足要求をしてしまいお手数をお掛けしました。（ｍ○ｍ　反省）
セルのデータが「空欄」でなく、そして、「休」でもない時にデータを
転記するということで、cafe_au_lait様のご回答が適解でした。

回答No.2

pc_knight

QNo.2826776にて回答をさせていただいた者です。
もうひとつ条件を「"休"を無視する」の意味をもう少し詳しくお聞かせいただけると幸いです。
"休"データがどのシートのどのセルに書かれているのか一例を示して頂けるとよいのですが・・・。
「無視する」とは、「"Sheet2"への転記をしない」という意味合いでしょうか。
前回のご質問. QNo.2826776の様にシート内のデータの中身を書いて頂けると回答しやすくなります。

お礼

pc_knight様
本当にいつもありがとうございます。m(_ _)m
cafe_au_lait様の方法で良さそうですね。

補足

質問の内容をあせりすぎましたね

日　佐藤　山田　鈴木
１　Ａ店　Ｂ店　休
２　Ｂ店　　　　Ｃ店
３　　　　休　　Ｂ店

のように、店名以外に空欄と公休日が入るのですが、一覧の方には

日　応援に行く人　応援をもらう店
１　　佐藤　　　　　　　Ａ店
１　　山田　　　　　　　Ｂ店
２　　佐藤　　　　　　　Ｂ店
２　　鈴木　　　　　　　Ｃ店
３　　鈴木　　　　　　　Ｂ店

と、応援に行く店舗のみの表示にしたかったのですがどのように変えればよろしいか教えて下さい。宜しくお願いします。

回答No.1

cafe_au_lait

If Cells(r, c) <> "" Then

ここが「空白を無視する」という部分のようですので、

If Cells(r, c) <> "" And Cells(r, c) <> "休" Then

とすればよさそうです。

お礼

回答ありがとうございます。Andを使ってみたのは合っていたようですが、Cells(r,c)<>"休”と入れるのが正しかったのですね
"休"しか入力せずにあきらめてしまいました^^;