マクロ：項目の先頭にマルがついていたら、項目の頭文字を反映させたい

Question

いつもありがとうございます。

回答を頼りにマクロを組んでいます。

お時間がある方、教えて頂けますと幸いです。

sheet1にsheet2～sheet5の内容を集計するマクロを組んでいます。

sheet1のA2のセルから順に右側へsheet2のA2の内容を反映させたいです。

またsheet1のA３のセルから右側へsheet3のA2に内容を反映させる、を繰り返していきたいです。

①解決しました！ありがとうございます（11/26）

②sheet２～sheet5に下記のような一覧があり

黒丸がついている項目の隣のセルの頭文字を反映させる方法はありますでしょうか。

上記の場合ですが、B6のいちごの”い”をsheet1のB2のセルに反映させるというような式を作りたいです。

sheet3はいちごではなく、りんごに丸がついており、”り”をsheet1のB3のセルに反映させたいです。

また参照できるところがありましたら、リンクを教えて頂ければ自分で調べます。

どうぞよろしくお願いいたします。

Answer 1

> V2、Y2、AB2の中から黒丸がついている名称の文字をSheet１のE8に反映する

それら 3 つのセルのうち、値が"●"であるセルが 2 つ以上存在する場合は
どのようになさりたいのでしょうか。

> V3、Y2、AB3の中から黒丸がついている名称の文字をSheet1のF8に反映する> P8、X8、AF8それぞれで黒丸がついている項目に対してSheet1のG8に”１”とフラグを立てる

同上。

いずれにしても、基本的には①と同じようになさればよいはず。

> 自分で組んだところ、ものすごい長さになってしまいました。

まず参照元のワークシートのレイアウトがごちゃごちゃしていますので、
多少冗長に見えるコードになるのはやむを得ないでしょう。

Answer 2

※※①は解決しました！！※※ありがとうございます。引き続き②をお願いいたします。

いつもありがとうございます。

実際の表です。

これがSheet２とします。

V2、Y2、AB2の中から黒丸がついている名称の文字をSheet１のE8に反映する

V3、Y2、AB3の中から黒丸がついている名称の文字をSheet1のF8に反映する

（最悪、手入力でもしようと思っています）

P8、X8、AF8それぞれで黒丸がついている項目に対してSheet1のG8に”１”とフラグを立てる

黒丸がついていない項目は何もしない。

Sheet３も全く同じフォーマットで、それをSheet１のE9、Sheet４のE9へと反映していきたいです。

自分で組んだところ、ものすごい長さになってしまいました。

よろしくお願いいたします。

Answer 3

> sheet1のA2のセルから順に右側へsheet2のA2の内容を反映させたい

参照元: Sheet2!A2 -> 出力先: Sheet1!A2

> またsheet1のA３のセルから右側へsheet3のA2に内容を反映させる

参照元: Sheet1!A3 -> 出力先: Sheet3!A2

以上のように読めるのですが、その説明で本当に合っているのでしょうか。

> ①sheet２のA2に○がついていたら> ②sheet２～sheet5に下記のような一覧があり

> B6のいちごの”い”をsheet1のB2のセルに反映させる

おっしゃってる通りならば Sheet2 は上記の画像のようなレイアウトに
なっているはずですが、その説明で本当に合っているのでしょうか。

また、何故に B1:B6 の行列を入れ替えた状態の画像を
アップロードされたのでしょうか。

いずれにしても、参照元シートにおいてA列とB列に記録されている項目の
意味や役割がどのようなものであるか、最終的に Sheet1 への出力結果が
どのようになればよいのかについて、具体的に明示されることをお奨めします。