• ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:QNo.2826776の質問の続き 表から別シートに一覧表を作成したいのですが)

VBAを使用して別シートに一覧表を作成する方法

このQ&Aのポイント
  • VBAを使用して、Excelのシートから別のシートに一覧表を作成する方法について教えてください。
  • 具体的には、指定したセル範囲のデータを転記し、別のシートに表示する方法を知りたいです。
  • さらに、「休」という文字が含まれるセルのデータは無視する方法も知りたいです。

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

  • ベストアンサー
  • pc_knight
  • ベストアンサー率66% (52/78)
回答No.3

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

その他の回答 (2)

  • pc_knight
  • ベストアンサー率66% (52/78)
回答No.2

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

E-XCEL
質問者

お礼

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

E-XCEL
質問者

補足

質問の内容をあせりすぎましたね 日 佐藤 山田 鈴木 1 A店 B店 休 2 B店    C店 3    休  B店 のように、店名以外に空欄と公休日が入るのですが、一覧の方には 日 応援に行く人 応援をもらう店 1  佐藤       A店 1  山田       B店 2  佐藤       B店 2  鈴木       C店 3  鈴木       B店 と、応援に行く店舗のみの表示にしたかったのですがどのように変えればよろしいか教えて下さい。宜しくお願いします。

回答No.1

If Cells(r, c) <> "" Then ここが「空白を無視する」という部分のようですので、 If Cells(r, c) <> "" And Cells(r, c) <> "休" Then とすればよさそうです。

E-XCEL
質問者

お礼

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

関連するQ&A

専門家に質問してみよう