EXCEL 一覧表の頭記号と一致した行のみ削除

質問

規格部品として頭に２桁又は３桁の記号+数字が付いた規格部品があります。（一覧表有り）
例）
PA, PG, QA, SB, BAA等複数＜記号の後に続く数字の桁数は不統一です。＞

今回作成する個別リスト上のE列に全部品の品番が記載されていますが、規格部品が記載されている行のみを一括削除出来ればと考えています。
そのようなことが可能なのかわかりませんが、マクロの詳しい方がおりましたら是非教えて下さい。
尚、一覧表は別ファイルですが、別シート(SHEET2)に貼り付けてからでも可能です。
宜しくお願いします。

PS: EXCEL2003を利用しています。

回答No.5

tom04 · ベストアンサー

No.2・3です。

No.2の画像通りの配置だとすると
Sheet2の「規格品コード」の数字より前の部分がSheet1のE列と同じ場合、その行を削除すればよい訳ですよね？

コードを↓に変更してみてください。

Sub Sample2()
Dim i As Long, k As Long, lastRow As Long, lastCol As Long
Dim str As String, buf As String, wS As Worksheet
Set wS = Worksheets("Sheet2")
Application.ScreenUpdating = False
With Worksheets("Sheet1")
lastRow = .Cells(Rows.Count, "A").End(xlUp).Row
lastCol = .Cells(1, Columns.Count).End(xlToLeft).Column
For i = 2 To wS.Cells(Rows.Count, "A").End(xlUp).Row
For k = 1 To Len(wS.Cells(i, "A"))
str = Mid(wS.Cells(i, "A"), k, 1)
If Not str Like "[0-9]" Then
buf = buf & str
Else
Exit For
End If
Next k
.Range("A1").AutoFilter field:=5, Criteria1:=buf & "*"
If .Cells(Rows.Count, "A").End(xlUp).Row > 1 Then
Range(.Cells(2, "A"), .Cells(lastRow, lastCol)).SpecialCells(xlCellTypeVisible).Delete shift:=xlUp
End If
.AutoFilterMode = False
buf = ""
Next i
End With
Application.ScreenUpdating = True
End Sub

※　今回もNo2の画像の配置通りとします。
（列は1行目の項目が入っていれば何列あっても構いません）m(_ _)m

お礼

お世話になります。
再度回答有難うございます。
大変恐縮ですが、やはり上手くいきませんでした。
リストのデータが全て消えてしまいます。
明日、もう一度トライしてみます。

補足

お世話になります。
ご連絡が遅くなり申し訳ありません。
再度トライしたところ、Sheet2に記載の規格部品リストの行間が所々空白になっているところが有り、空白が無いようにして再トライしてみました。
感激です。
完璧に一括削除出来ました。
有難うございました。