マクロでのデータ抽出

質問

毎月の売上データの一覧から必要なデータのみ抽出して、伝票を作成します。
伝票は明細単位で抽出します。
マクロを組もうとしているのですが、１、２行目のように１案件につき明細が２つある場合があるので、どのようなコードになるのかがわかりません。
コードの中で明細をカウントして、その分だけコピーするような手順になるのでしょうか？

また伝票は「分類」ごとに作成します。
こちらは分類ごとにシートを作成し、フィルタにかけたデータをコピーしようと思っています。

マクロは初心者で説明不足な部分がありましたら申し訳ありません。
よろしくお願い致します。

回答No.2

imogasi

http://oshiete1.nifty.com/qa7109049.html
でも質問しているようだが、データ例などの書き方について、わたしの意見など、参考にしてくれたのかな。
＃１のような意見も又出ているじゃないか。
ーー
どちらも丸投げで、内容も判りにくい。
ここはVBAコードを作成してもらう、下請け的なコーナーではない。
まず必要なミニ作業に分解し、どの順序でやるかも含めて、文章表現してみること。箇条書きがが望ましい。
自分でコートできる部分と、現状出来ない場合に分ける
自分でやってみて切り分けること。
ーー
検索のやり方について勉強のこと。
全行を総なめで探す場合は、その該当の都度内容がわかる。
Findメソッドなどでは会社単位で見つけた行をどこかのセル範囲にまとめれば、一括コピー貼り付けできる場合もある。
ーー
こういう仕事がらみのことをVBAでやるのは、（わたしはロジックといっているが）、処理の組み立て方に習熟して無いとだめで、文法や、一部のメソッドや、プロパティを知っていてもできない。
現状の実力以上のことをやろうとしているからだと思う。
本やWEBで時間をかけて学習するか、スクールにでも通うかが必要。近くにプログラム経験のある人がいるのが良いが。
ーー
もうひとつ、印刷を目的とするなら、伝票は会社数の別シートにそれぞれ作るのではなく、A社の伝票をSheet2につくり、印刷し、次にSheet2にB社の内容を整えて印刷するという方法（を会社数分繰返す）もあり、効率・能率が良い。
ーー
又バラバラに散らばった中から、検索するのでなく、会社列でソートし、近接した同じ会社のデータ行になったシートを対象にする方法もある。

お礼

ご丁寧にありがとうございました。
質問の仕方もわからずすみません。画像に関しては前回ご指摘を受けたのでのせましたが、どのように表示されるか事前に確認できないため、自分でも失敗だったと思っています。
それからこの伝票は前回の質問の伝票とは別のものです。

回答No.1

keithin

画像も小さくて見えないし，具体的にどこに何が書いてあってどうしたいのかもさっぱり不明ですが，

お話の様子だけから言うと
＞どのような手順

明細をカウントするんじゃなく，最初から明細が２つある前提でプログラムを書いてから，「２つ目が無い」ときは２件目を記入する部分をスキップするように書いてみると，比較的漏れが無くて簡単と思います。

明細の１つ目は問答無用にこの範囲からデータを拾って記入する
明細の２つ目はここにデータがあるはずだけど，セルが空だったら以下の部分をスキップする
　明細の２つ目を記入するマクロを書いておく

といった具合に

お礼

ありがとうございます。
初めて画像をのせたのですが、こんな小さくなるとは思いませんでした。すみませんでした。
それにもかかわらずヒントを頂き感謝します。