エクセルデータの自動転記について（あらためて質問です）

締切済

質問者：とどとど
質問日時：2016/03/28 02:04
回答数：3件

先日質問させていただいた件であらためておねがいします。
https://oshiete.goo.ne.jp/mypage/history/question
（↑以前お伺いしたときの内容です）

入力の項目がBからH列まであり、A列は連番を振っています、
１行目は項目名に充てられています。
２行目から順に下方へ随時入力をしていくシートがあります。（シート１とします）
７項目１行でひとつの入力作業（くくり）です。

シート１のＧ列には１から５２までの数字が不規則に入力されています、
このＧ列に記入された数字ごとにシート２以降へ転記したい、
シート１へ入力するたびにシート２（以降）へ連動して入力（仕訳け）されていくようにしたい。

ひとつのシートに１～３、もしくは１～４づつ表を表示していきたいので、
転記シートは１３もしくは～１７シートになります。
ほんとうは列数が１７あるので、あまり横に並べると見ずらくなるため、
１シートあたり３つか４つくらいがいいかな、とおもっています。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (3件)

最新から表示
回答順に表示

No.3

回答者：ママチャリ
回答日時：2016/03/29 22:09

「データ」タグの中に、「並べ替えとフィルタ」の「詳細設定」というのがあるのですが、これを使うと簡単に抽出ができます。

ちょっと取っ付きにくいかもしれませんが、非常に便利です。是非、習得してみて下さい。ヘルプでも丁寧に説明されていますので、確認してみてください。
上記の操作をマクロ記録して、ちょこっと修正すれば、ご希望の抽出ができます。
ちなみに、ちょこっと修正したマクロは次のようになるはずです。ただ、これは店番ひとつ分なので、必要なだけ繰り返してください。

Sub Macro1()
Sheets("Sheet1").Range("A:H").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Sheet2").Range("A1:A2"), _
CopyToRange:=Sheets("Sheet2").Range("A3:G3"), Unique:=False
End Sub