指定した値より頭文字を抽出するには

質問

図のように、A列に下向に2000くらいまでのデータがあります。
指定の抜き出したい値より、A列の頭文字が一致する部分のみを抜き出したいのですが、マクロなどで一括で処理する方法はありますでしょうか？

列の指定は特になく、文字間ごとにセルが分かれていても構いません。

回答No.1

keithin

数式でもやればできるけど，2000行ほどを処理したいなら無理矢理しないでマクロの方が良いですね。
抜き出したい値がF1:F10に入れてあるとして。

Sub macro1()
　Dim r As Long
　Dim h As Range
　Range("A1").Insert shift:=xlShiftDown
　Range("A1") = "頭にはタイトル行を"
　r = Range("A65536").End(xlUp).Row
　Application.ScreenUpdating = False

　For Each h In Range("F1:F10")
　If h <> "" Then
　　Range("A:A").AutoFilter field:=1, Criteria1:=h.Value & "*"
　　Range("C1:C" & r).FormulaR1C1 = "=RC1"
　End If
　Next

　ActiveSheet.AutoFilterMode = False
　Application.ScreenUpdating = True
　Range("C1:C" & r).Value = Range("C1:C" & r).Value
　Range("C:C").SpecialCells(xlCellTypeBlanks).Delete shift:=xlShiftUp
End Sub