Excelでフィルターを使わずに抽出するにはどうしたらよいのでしょうか

お世話になります。
画像のようにしたいです。
よろしくお願いいたします。

質問者からの補足コメント

• すみません。。。店舗です。
  例えば、店舗でフィルターを兵庫店でかけた場合、画像の様になると思うのですが、これをExcelのフィルター機能や、VBAのAutoFilterを使わずに実現できないものかと思いました。

  No.1の回答に寄せられた補足コメントです。 補足日時：2019/02/17 14:58

• ありがとうございます！
  
  下の画像のように店舗ごとに分類したいです。
  それこそ下の画像をそのまま実現したいです。
  コピペではなく、関数やVBAなど使ってです。

  
  No.3の回答に寄せられた補足コメントです。 補足日時：2019/02/17 15:40

• 抽出という言葉の選択が間違っていました。。。
  分類して店舗ごとに分けてレイアウトしたいということです。

    補足日時：2019/02/17 15:45

• 私のやりたいことをまとめますと
  1. 店舗ごとに分類して分けてレイアウトしたい
  2. 店舗名の行の変わり目を判別して、分類したい。
  
  恐らく、店舗名の行の値が変わったところ（店舗名が変わったところ）をExcelに認識させれば、私が求めていることができそうなのですが、そこから先がわからずです。。。
  
  こちらのサイトに行の値の変わり目を取る方法がありました。
  参考にしていただければ幸いです。
  https://bit.ly/2NhGSvT

    補足日時：2019/02/17 16:42

• 

  ご回答を下さった皆様、ありがとうございました！

    補足日時：2019/02/17 18:24

No.5 ベストアンサー 回答者： ママチャリ 回答日時： 2019/02/17 17:43

こんな感じでしょうか（Excelっぽくないけど）。

ちなみに、最初の画像のレイアウトを想定して作っています。列の間隔はご自分で調整してください。

Sub sample()
Dim i As Long
Dim c As Long
Dim r As Long
c = 4
r = 2
For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
Cells(r, c).Value = Cells(i, "A").Value
Cells(r, c + 1).Value = Cells(i, "B").Value
If Cells(i, "A").Value = Cells(i + 1, "A").Value Then
r = r + 1
Else
c = c + 2
r = 2
End If
Next i
End Sub

この回答へのお礼

これです！
ありがとうございます！
こんな短いコードでこんなことができるとは。。。
私もVBAを使えるようになりたいと思いました！

お礼日時：2019/02/17 18:21

No.4 回答者： ぐーるぐる 回答日時： 2019/02/17 17:08

これを毎回、容易にしたいならAccess使えばいいよ。

No.3 回答者： 銀鱗 回答日時： 2019/02/17 15:26

１．関数を使う。

２．ピボットテーブルを使う。
３．一つずつ手作業する。
くらいかなあ。

この回答へのお礼

抽出というよりは、分類といったほうが相応しかったです。。。
わかりづらくて申し訳ないです。
ありがとうございました！

お礼日時：2019/02/17 15:51

No.2 回答者： ぐーるぐる 回答日時： 2019/02/17 14:45

うん、私も抽出出なKれば、何をどういう条件で？え？なにがしたいの？と。

この回答へのお礼

抽出というよりは分類といった方がよかったですね。。。
ありがとうございました！

お礼日時：2019/02/17 15:50

No.1 回答者： mike_g 回答日時： 2019/02/17 14:44

「抽出する」ための条件は何処に書いてあるの？

店舗名？日付？
チコちゃんに叱られないように祈ります。

この回答へのお礼

確かにそうでした。。。
ありがとうございました！

お礼日時：2019/02/17 15:48