EXCEL マクロ 文字列を種類分けして並べ替え

質問

みなさんいつもいろいろ教えていただきありがとうございます。
マクロ初心者の者です。
さて、早速ですが以下の内容を実現できるマクロを
教えていただけませんでしょうか？

　　　 A
1 A*********
2 0*********
3 1*********
4 3*********
5 ******
6 BAE******
7 BSE******

・A列に上記のような文字列が入力されています。
　（※注文番号）（数十～最大100行くらいまで）
*にはランダムに数字が入ります。
A列の並び順、数はランダムです

・B列にはA列からVLOOKUPを使って得た日付（納期）が入ります。
例（B1セル）⇒=VLOOKUP(A1,納期リスト,2,FALSE)
　　結果 2/20　と表示されている

・C列にはA列からVLOOKUPを使って得た、客先名が入ります。
例（C1セル）⇒=VLOOKUP(A1,納期リスト,3,FALSE)
　　結果 ***商店　などと表示されている

■この場合に、アルファベット3文字から始まるA6,A7の種類の
　注文番号"以外"を削除し、B列の日付の昇順に、
　残った注番を並べ替えたいです。

お手数ですが、ご指導よろしくお願いいたします。

回答No.1

n-jun · ベストアンサー

＞この場合に、アルファベット3文字から始まるA6,A7の種類の注文番号"以外"を削除し

ここだけであれば、
Sub try()
Dim RegExp As Object
Dim r As Range

Set RegExp = CreateObject("VBScript.Regexp")
RegExp.Pattern = "^[a-zA-Z]{3}\d+"

For Each r In Range("A1", Cells(Rows.Count, 1).End(xlUp))

If Not RegExp.Test(r.Value) Then
r.ClearContents
End If

Next

Range("B1", Cells(Rows.Count, 2).End(xlUp)).Offset(, -1) _
.SpecialCells(xlCellTypeBlanks).EntireRow.Delete

Set RegExp = Nothing
End Sub

例えばこんな感じかな？

＞B列の日付の昇順に、残った注番を並べ替えたいです。
ここはマクロの自動記録でも出来る範囲かと。

ご参考程度に。

お礼

回答ありがとうございます！
早速試してみます！

補足

これでうまくいく…と思ったのですが、
マクロとは関係ない並べ替えで別の問題が出てきまして…
もしよろしければこれに関しても教えていただけませんでしょうか？

【状況】
B列には日付（20090208のような形式）以外に
文字列、空白セルも合わせて並んでいます。
B列↓
未回答
空白セル
20090208
20090210
未定
空白セル
20090101

【実現したいこと】
日付昇順
↓
文字列（未定、未回答）
↓
空白セル
の順に並べ替えをしたいです。

状況補足
・全ての文字列はVLOOKUP関数の結果として表示されています。
・この操作をマクロに組み込むことを考えています。
・空白セルは目立たなければ他の記号などに置き換えても構いません。

このような感じなのですが…いかがでしょうか？

回答No.2

n-jun

＃１です。

マクロではなく通常の並べ替えの操作で、
＞日付昇順
＞　↓
＞文字列（未定、未回答）
＞　↓
＞空白セル
の順に並びませんか？

並べばその操作を記録するだけなのですが。

補足

日付昇順
　↓
空白セル
　↓
文字列（未定、未回答）
の順に並んでしまうんです。
空白セルには実際には数式が入っているからでしょうか…？

削除マクロ教えていただきありがとうございました！

↓別質問で立てましたのでこの質問を締め切らせていただきます。
http://oshiete1.goo.ne.jp/qa4735573.html