Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


68744 / 76738 ←次へ | 前へ→

【12523】Re:空白でないセルの文字を抽出し詰めて表示したい。
質問  さくら  - 04/4/6(火) 19:50 -

引用なし
パスワード
   すみません。表示がずれて余計に分かりにくくなっているのに回答してくださいましてありがとうございます。
しかし説明が悪かったので実行してみると要望とは違う結果になっていました。
できる限り詳しく説明しますので再度お願いします。

使っているフィールドは(Sheet1)のセルA1〜D3と(Sheet2)のセルA1〜J1です。
(Sheet1)は縦にAグループからDグループに分かれていて、回覧の希望があればグループの列に名前を入れます。 回覧される優先順位はAグループが先で順にBグループ、Cグループ、Dグループと続きます。 また、グループの中でも先に登録した人から優先されるため、A1→A2→A3→B1→B2・・・と名前が入っていればB1よりもA2が優先されます。

(Sheet1)のセルA1〜D3に名前が入っていれば
その順に名前を(Sheet2)のセルA1〜J1へ左詰で表示させたいのです。

(Sheet1)
  A   B   C   D
1 山田 山下 佐藤 鈴木
2    上田 山本
3    今本

(Sheet2)
  A   B   C   D   E   F   G   H   I   J
1 山田 山下 上田 今本 佐藤 山本 鈴木

また、途中で希望者が増えた場合にも対応したいのです。
例えばセルA2に”黒川”と追加したとき、(Sheet2)のセルB1に入りそのまま残りは右にずれるように。

(Sheet1)
  A   B   C   D
1 山田 山下 佐藤 鈴木
2 黒川 上田 山本
3    今本

(Sheet2)
  A   B   C   D   E   F   G   H   I   J
1 山田 黒川 山下 上田 今本 佐藤 山本 鈴木

この説明で分かっていただけますでしょうか?
すみませんが、再度よろしくお願いします。
0 hits

【12496】空白でないセルの文字を抽出し詰めて表示したい。 さくら 04/4/6(火) 13:31 質問
【12517】Re:空白でないセルの文字を抽出し詰めて表... Jaka 04/4/6(火) 17:22 回答
【12523】Re:空白でないセルの文字を抽出し詰めて表... さくら 04/4/6(火) 19:50 質問
【12525】Re:空白でないセルの文字を抽出し詰めて表... ichinose 04/4/6(火) 20:57 回答
【12526】それともユーザー定義関数にする? ichinose 04/4/6(火) 21:49 発言
【12534】Re:それともユーザー定義関数にする?(訂... ichinose 04/4/7(水) 7:37 発言
【12527】Re:空白でないセルの文字を抽出し詰めて表... とまと 04/4/6(火) 21:52 回答
【12545】Re:空白でないセルの文字を抽出し詰めて... さくら 04/4/7(水) 11:31 お礼
【12547】Re:空白でないセルの文字を抽出し詰めて... ichinose 04/4/7(水) 12:00 発言
【12548】Re:空白でないセルの文字を抽出し詰めて... さくら 04/4/7(水) 12:40 お礼

68744 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free