Excel VBA Filter関数で二次元配列を処理してみた

Sub Sample()
    Dim myDada(4) As String
    Dim Answer1 As Variant, Answer2 As Variant
    myDada(0) = "あかいりんご"
    myDada(1) = "あおいりんご"
    myDada(2) = "あかいだんご"
    myDada(3) = "しろいだんご"
    
    Answer1 = Filter(myDada, "あか", True)
    MsgBox Join(Answer1, vbCrLf)
    
    Answer2 = Filter(myDada, "ご", True)
    MsgBox Join(Answer2, vbCrLf)
End Sub

'セル範囲の2次元配列でFilter関数を使ってみる
Sub ArrayFilterSample()
    Dim db As Variant   'セルデ－タ取得用
    Dim sr As Long      '開始行
    Dim sc As Long      '開始列
    Dim er As Long      '最終行
    Dim ec As Long      '最終列
    Dim i As Long, j As Long 'ループ用
    Dim rng As Range   'セル選択用
    
    'Application.InputBoxで対象表を選択させる
    On Error Resume Next
    Set rng = Application.InputBox( _
            Prompt:="表の先頭（左上）セルを１つ選択してください", _
            Title:="セル選択", Type:=8)
    On Error GoTo 0
    If rng Is Nothing Then Exit Sub
    rng.Worksheet.Activate
    sr = rng.Row        '開始行取得
    sc = rng.Column     '開始列取得
    Set rng = Nothing
    '取得セル範囲を2次元配列に一括代入する
    db = Cells(sr, sc).CurrentRegion.Value
    er = UBound(db, 1)   '1次元の最大値（最終行）
    ec = UBound(db, 2)   '2次元の最大値（最終列）
    
    ReDim c(sc To ec) As String
    ReDim r(sr To er) As String
    Dim str As String
    Dim ar As Variant
    Dim rn As Variant   'セル選択用
    '2次元配列をJoin関数で行ごとの1次元配列にする
    For i = sr To er
        For j = sc To ec
            c(j) = db(i, j) '1次←2次元
        Next
        r(i) = Join(c, "|") '行ごとに列のセルデータを連結
    Next
    str = Join(r, ",")      '各行毎のデータを全て連結（文字列）
    rn = Split(str, ",")    '文字列を一次元配列へ
    'ここでフィルタリングする。指定文字はRange("H2")の値
    ar = Filter(rn, Range("H2"), True, vbTextCompare)
    For i = 0 To UBound(ar)
        'フィルタリングしたデータをセルに書き出す
        Range(Cells(i + 1, 10), Cells(i + 1, 10 + ec - 1)) = _
                                    Split(ar(i), "|")
    Next
    '抽出した件数をセルに表示
    Range("H3").Value = "抽出件数＝ " & i - 1 & " 件"
    
End Sub