'かなでフィルタするサンプルシートを作成するマクロ

'KanaFilterSample2マクロを実行すると、サンプルシートが作成され
'アクティブブックにAkasataとAkasata2という2つの名前が定義されます。

'サンプルシートの以下の数式をコピーして、ご利用ください。
'=MID(Akasata2,MATCH(LEFT(A2,1),Akasata,1),1)

Option Explicit

Sub KanaFilterSample2()
    Dim obj As Object
    For Each obj In ActiveWorkbook.Names
        Select Case obj.Name
            Case "Akasata", "Akasata2"
                MsgBox "名前 Akasata Akasata2 は既に定義されています。", _
                    vbExclamation, "かなでフィルタするサンプルシート"
                Exit Sub
        End Select
    Next

    'ワークシートの挿入
    Worksheets.Add

    'テストデータ入力
    Range("A1").Value = "かな"
    Range("B1").Value = "かな2"
    Range("A2").Value = "あおき"
    Range("A3").Value = "おかだ"
    Range("A4").Value = "かやま"
    Range("A5").Value = "こやま"
    Range("A6").Value = "さとう"
    Range("A7").Value = "そね"
    Range("A8").Value = "たなか"

    '名前定義
    ActiveWorkbook.Names.Add Name:="Akasata", RefersTo:= _
        "={""0"",""あ"",""か"",""さ"",""た"",""な""," & _
        """は"",""ま"",""や"",""ら"",""わ""}"
    ActiveWorkbook.Names.Add Name:="Akasata2", RefersTo:= _
        "=""0あかさたなはまやらわ"""

    '数式入力
    Range("B2:B8").FormulaR1C1 = _
        "=MID(Akasata2,MATCH(LEFT(RC[-1],1),Akasata,1),1)"

    'オートフィルタの実行
    Selection.AutoFilter
End Sub