[Excel] エクセルでこんな事（Sheet1->Sheet2,3条件コピー）出来ますか？

質問

こんにちは。

Excelのデータ入力＆整理で悩んでいます。
下記のような表(Sheet1)を作り、さらに条件によって自動的に項目ごとに整理(Sheet2,3)するなんて事は出来ますでしょうか？

【例】
Sheet1(全体表示)　これは全て手入力

1-1 製品A 10
1-2 製品B 5
2-1 製品X 33
2-2 製品Y 60
1-3 製品C 7
2-3 製品Z 12

となっているものを自動的に

Sheet2(1-xの表示)

1-1 製品A 10
1-2 製品B 5
1-3 製品C 7

Sheet3(2-xの表示)

2-1 製品X 33
2-2 製品Y 60
2-3 製品Z 12

と表示させたいのです。Sheet2,3はもちろん入力していません。

データは全てSheet1に入力しています。このシートのみ入力します。
Sheet1のキー項目によって、自動的にデータをSheet2とSheet3へコピー？し見やすくします。

Excelのbookは、別でも一緒でもかまいません。

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

回答No.1

grace2973 · ベストアンサー

回答になっていないのですが、ふと気が付いたので。

1-xを抽出したり、2-xを抽出したりしたいってことですよね？

この表なんですが、
A列に大分類、B列に小分類といった感じで分けることはできませんか？
↓こんな感じ
A B C 　 　D
-------------
1 1 製品Ａ 10
1 2 製品Ｂ 5
2 1 製品Ｘ 33
2 2 製品Ｙ 60
1 3 製品Ｃ 7
2 3 製品Ｚ 12

そうすれば、オートフィルタでＡ列が１のものだけ表示とかできるのですが。

どうしても 1-1 と入力しなればならないのであれば
回答になってませんので、気にしないで下さい。

お礼

こんにちは。
その節はありがとうございました。

補足

こんにちは。

はい、1-1 -> 1 1 とセル分けるのはぜんぜん大丈夫です。

Sheet2,3へ持っていったとき、行は詰まるのですか？
そこが良く分かりません。

よろしくお願いします。

回答No.5

HitomiKurose

力技でいきます。

Sheet1に

コード　商品　数量
1-1　　Ａ　　10
1-2　　Ｂ　　 5
2-1　　Ｘ　　33

のように１行目に項目名、２行目から最大100行目までがデータとします。

Sheet2のA1からC1にも、コード　商品　数量と、項目名を入れます。

Sheet2のF2に
=IF(ISERROR(MATCH("1-*",Sheet1!A$2:A$100,0)),"",MATCH("1-*",Sheet1!A$2:A$100,0))
Sheet2のF3に
=IF(ISERROR(MATCH("1-*",INDIRECT("Sheet1!A"&F2+2&":A100"),0)),"",MATCH("1-*",INDIRECT("Sheet1!A"&F2+2&":A100"),0))
Sheet2のF4に
=IF(ISERROR(MATCH("1-*",INDIRECT("Sheet1!A"&SUM(F$2:F3)+2&":A100"),0)),"",MATCH("1-*",INDIRECT("Sheet1!A"&SUM(F$2:F3)+2&":A100"),0))
と入力。

Sheet2のA2からC2を、A2がアクティブになるように選択し（普通にA2からC2の方向に選んだ状態です）、
=IF(ISERROR(MATCH("1-*",Sheet1!A$2:A$100,0)),"",OFFSET(Sheet1!A$2,F2-1,0,1,4))
と入力し、Ctrl、Shiftを押しながらEnter。
Sheet2のA3からC3を、A3がアクティブになるように選択し、
=IF(ISERROR(MATCH("1-*",INDIRECT("Sheet1!A"&F2+2&":A100"),0)),"",OFFSET(Sheet1!A$2,SUM(F$2:F3)-1,0,1,3))
と入力し、Ctrl、Shiftを押しながらEnter。
Sheet2のA4からC4を、A4がアクティブになるように選択し、
=IF(ISERROR(MATCH("1-*",INDIRECT("Sheet1!A"&SUM(F$2:F3)+2&":A100"),0)),"",OFFSET(Sheet1!A$2,SUM(F$2:F4)-1,0,1,3))
と入力し、Ctrl、Shiftを押しながらEnter。

Sheet2のA4からF4を選択し、コピー。
Sheet2のA5からA100を選択し、貼り付け。

Sheet2全体をコピー。
Sheet3に貼り付け。そのままCtrlを押しながらH（或いは編集→置換）、
検索する文字列に 1-* 、置換後の文字列に 2-* で、すべて置換。

あとはSheet2・3のF列は作業用ですので、「表示しない」にした方が見栄えがいいかな？
データが100より多ければA100とかA$100の数字を直して下さい。（Sheet2のA4からF4の貼り付け先も増やしてね）
見慣れない関数もあると思いますが、とりあえず書いてある通りにやってみて下さい。

お礼

こんにちは。

返事遅くなりました。

力技結構好きです（笑。
何を行っているのさえ理解できれば何とかなりそうです。

さて、マクロで行くか力技で行くか…。

ありがとうございました。

でわ！

回答No.4

grace2973

マクロで作成できるのであれば、いろいろできますので。

参考までに
「Sheet1のデータをSheet2に転記するマクロ」
は下記のようになります。

Public Sub 抽出()
　Dim row1 As Long
　Dim row2 As Long
　Dim col As Integer
　Dim ws1 As Worksheet　'データシート
　Dim ws2 As Worksheet　'転記先シート

　Set ws1 = Worksheets("Sheet1")　'シート名で指定してます
　Set ws2 = Worksheets("Sheet2")　'シート名で指定してます

　row2 = 1　'転記先のシートの最初の行番号
　'１行目からデータのある最後の行までループ
　For row1 = 1 To ws1.Range("A65536").End(xlUp).row
　　If Left(ws1.Cells(row1, 1), 2) = "1-" Then　'←Ａ列が「1-」で始まるかどうかの判断
　　　'一致すれば、データを転記
　　　For col = 1 To 3
　　　　ws2.Cells(row2, col) = ws1.Cells(row1, col)
　　　Next col
　　　row2 = row2 + 1　'転記先のシートの行番号を次に移動する
　　End If
　Next row1
End Sub

これを「ツール」－「マクロ」－「Visual Basic Editor」
でエディタを開いて
「挿入」－「標準モジュール」
で標準モジュールに記述すれば、マクロが使えるようになりますので。

後は、データ入力後に「ツール」－「マクロ」－「マクロ」
に「抽出」というのが出てきますから、実行してください。

ソースコードにコメント書いてますので
ヘルプも見ながら参考にしてください。

お礼

こんにちは。

返事遅くなりました。
これからチャレンジして見たいと思います。といってもこればかりやっているわけにも行きませんが…(笑。

丁寧な解説ありがとうございます。
エクセル少し突っ込んでやってみようかなと思うようになりました。

さて、どうなりますか？

でわ！

回答No.3

grace2973

#1の回答に対する補足についてですが、
オートフィルタをかけて全体をコピーして
sheet2に貼り付ければＯＫです。

いちいち、コピー＆ペーストするのは面倒だというのであれば、
マクロを作成するか、#2の方などの方法で、
あらかじめsheet2に細工する必要があります。

但し、あらかじめsheet2に細工しておくということは
sheet1のデータ件数がsheet2に細工した行数より多くなった場合に、
結局、sheet2の１行を必要分コピーするという作業が発生します。

やはり、あとあとの作業が一番楽なのは
マクロを作成することだと思います。
入力後に「マクロ実行」で一発ですから。

もし、マクロを作成したいのであれば、また回答いたします。

お礼

こんにちは。

何回ものレス感謝です。

実は、打ち込むのは私なんですが、見るのは素人さんばかりです。なので、開いたと同時にいろいろな形で見られるのがゴールと考えています。

私はべた打ち。
他の人は、機種別や納期別で見られたら…
なんて考えています。

やはりマクロが手っ取り早いんでしょうか？
と言っても、分かっていませんが。

ありがとうございました。
そして、よろしくお願いいたします。

回答No.2

SAKURAMYLOVE

たとえば、SHEET2に1-1,1-2を事前に入力しておくのはダメなのでしょうか。
それが、許されるのであれば、SHEET1には以下のデータを用意しておきます。
A列　B列
コード製品名
1-1 製品A 10
1-2 製品B 5
2-1 製品X 33
2-2 製品Y 60
1-3 製品C 7
2-3 製品Z 12
（以下１００行まで）

SHEET2に
A列　B列
コード　製品名
1-1
1-2
1-3
・・・
B2に=IF(COUNTIF(Sheet1!A2:A100,A2)=1,VLOOKUP(A2,Sheet1!A2:B100,2,0),"")
を入力し、必要行までコピーしておきます。
A列が空欄、もしくは該当がなければＢ列は何も表示されません。
もし、Ｂ列の途中に空白行が発生した場合は、オートフィルターをかけて、フィルタのオプションから、空白以外のセルを指定すれば、行は詰まって表示されます。

お礼

こんにちは。

丁寧にありがとうございます。

少し試して見ました。知らない事が出来ると言うのは面白いですね。ちょっとまだ変ですけど、いじって見ようと思います。

どもでした。