win7、エクセル2007で作成中です。
シート1に
B列 C列 D列 E列
ID 所属 部門 名前
1 A 1 ○○○
2 A 1 ○○○
10 B 1 ○○○
11 B 1 ○○○
30 B 2 ○○○
31 B 2 ○○○
60 B 3 ○○○
61 B 3 ○○○
100 C 1 ○○○
101 C 1 ○○○
150 C 2 ○○○
151 C 2 ○○○
200 C 3 ○○○
201 C 3 ○○○
こんなデータがあり、IDと名前だけ印刷の必要があるのですが、
縦長で印刷しにくいので、印刷用シートとしてシート2に所属・部門別にIDと名前だけを抽出したいと思っています。
以前配列関数を習った記憶をうろ覚えで使ってみたりしていたのですがうまくゆかず。。rowもうまく扱えず><
これが完成したらこの仕事が終わるので、できればその度貼り付けなどではなく、
スマートにできたらと思いまして。。。
ちなみに、データは度々増えていきます。
もしよろしければ、ご教授いただけませんか??
よろしくお願いいたします。
No.2
- 回答日時:
こんなの、如何?
添付図参照
1.列Aに「No.」欄を設けて、上から順に 1 から始まる連続番号を入力
2.セル G3 に次の[条件付き書式]を設定して、此れを右方にズズーッとドラッグ&ペースト
数式が =ISERROR(G3)
フォント色 白
3.下の左端に示すセルにその右に提示した式を入力
G3: {=SMALL(IF(($C$2:$C$20=G$1)*($A$2:$A$20),($C$2:$C$20=G$1)*($A$2:$A$20)),ROW(A1))}
この式のみ配列数式で、行番号「20」は列A~Eのレコード数に応じて充分な数値に書き替える
H3; =INDEX($D$2:$D$20,G3)
I3: =INDEX($B$2:$B$20,G3)
J3: =INDEX($E$2:$E$20,G3)
4.範囲 G3:J3 を下方にズズーッと(必要かつ充分なだけ)ドラッグ&ペースト
5.列G~Jを[コピー]して、此れをセル L1 および Q1 に[貼り付け]
6.セル G1、L1、Q1 をそれぞれ部門名 A、B、C を入力
No.3
- 回答日時:
作業列を3列も使うので、スマートとは言えませんが。
F~H列を作業用(オレンジ部分)。
F2に、 =C2&D2 G2に、 =COUNTIF($F$2:F2,F2) H2に、 =F2&G2
として下へコピー。
I1には、表示させたい「部門」+「所属」の文字列を入力(ブルー部分)。
J2に、 =IFERROR(INDEX($B$2:$B$15,MATCH($I$1&(ROW()-1),$H$2:$H$15,0)),"")
H2に、 =IFERROR(INDEX($E$2:$E$15,MATCH($I$1&(ROW()-1),$H$2:$H$15,0)),"")
として下へコピー。
※都合上、同一シート内で作業しています。
No.4ベストアンサー
- 回答日時:
シート2のB1、B2に所属と部門
A5に
=IF(ROW(A1)>COUNTIFS(Sheet1!$C:$C,B$1,Sheet1!$D:$D,B$2),"",INDEX(Sheet1!$B:$B,SMALL(IF((Sheet1!$C$1:$C$1000=B$1)*(Sheet1!$D$1:$D$1000=B$2),ROW(Sheet1!$B$1:$B$1000)),ROW(A1))))
と記入、コントロールキーとシフトキーを押しながらEnterで入力
以下コピー
B5に
=IF(A5="","",VLOOKUP(A5,Sheet1!$B:$E,4,FALSE))
と記入、ふつーにEnterで入力
以下コピー
A:B列をコピーして完成。
この回答への補足
一番初めのA、B列はきちんと出てきたのですが、コピペした方がうまく行きません。。。
キーワードが間違っていないかどうかはチェックしているのですが、、、
ものすごくスマートな式ですね!ありがとうございます!
今日もう時間が取れそうにないので、明日またチャレンジしてみようと思います!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 請求書と領収書の作成 4 2022/11/10 16:13
- Visual Basic(VBA) VBAで不特定枚数印刷をしたいです。 4 2022/08/02 07:30
- Excel(エクセル) エクセルのマクロで複数シートを両面印刷するには? 2 2022/12/08 23:23
- Excel(エクセル) エクセルの印刷範囲をページ単位で可変にする方法 3 2022/05/23 13:04
- Excel(エクセル) エクセルでキーリストからデータを取り出して1枚1枚印刷するには? 11 2022/06/27 09:52
- Excel(エクセル) Excelであるシートだけ印刷できない 1 2022/04/01 09:04
- Excel(エクセル) VBA セルの値と同じ名前のシートにデータを貼り付けするやり方を教えてください 2 2022/05/17 16:26
- Excel(エクセル) エクセルのフッタやヘッダーについて 3 2023/02/04 09:45
- Excel(エクセル) セルによって印刷するシートを変える方法 EXCEL-VBA 2 2022/08/01 20:48
- Excel(エクセル) エクセルシートのデータを1列飛ばしで別ブックのシートに貼り付けるマクロが知りたい 2 2023/06/05 22:37
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルでの作業計算方法について
-
Microsoft1Officeの互換ソフト...
-
【マクロ】その時、その時で変...
-
はがきについて。
-
【マクロ】読取専用のファイル...
-
エクセル初心者です 関数の入れ...
-
【関数】適切な文字数の数字を...
-
LOOKUP関数を使えばいいのでし...
-
【関数】先頭だけにある、半角...
-
Excel ピボットテーブルで日付...
-
Excelのpivotについて質問です
-
時間によってファイル名が変わ...
-
エクセル 白黒印刷で白線を印刷...
-
Aというブックの1というシート...
-
エクセル関数を教えてください
-
WPS OFFICEでの縦書きについて
-
Excelのチェックボックスの使い...
-
エクセルの条件付き書式につい...
-
エクセルのセルに同じ大きさの...
-
エクセルの関数について教えて...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
[関数得意な方]教えて下さい・...
-
Excelにてある膨大なデータを管...
-
[関数について]わかる方教えて...
-
Excel初心者です。 詳しい方、...
-
excelの不要な行の削除ができな...
-
エクセル関数に詳しい方教えて...
-
INDIRECTを使わず excelで複数...
-
[オートフィルタ]で抽出された...
-
エクセルの神よ、ご回答を! エ...
-
エクセル関数に詳しい方、教え...
-
各ページの1番上の表示について
-
Excelで写真のような表を作った...
-
エクセルで不等号記号(≠)が上に...
-
数学 Tan(θ)-1/Cos(θ)について...
-
Excel 2019 は、SPILL機能があ...
-
Excelで全角を半角にしたいので...
-
条件付き書式を教えてください
-
Excel フィルターを掛けた状態...
-
[オートフィルタ]の適用範囲の...
おすすめ情報