ｖｂ

 Sub タイム測定Arrayでフィルタ()

    Dim starttime As Single, stoptime As Single

    starttime = Timer

    Dim allmydataArr As Variant

    allmydataArr = Range("A1").CurrentRegion.Value

    

    Dim pickedDataArr(1 To 20000, 1 To 8) As Variant

    Dim Specifieddate As Date: Specifieddate = "1990/1/1"

    Dim i As Long, j As Long

    Dim hitdata As Long: hitdata = 0

        For i = LBound(allmydataArr, 1) To UBound(allmydataArr, 1)

             If allmydataArr(i, 4) = "女" And Range("G" & i).Value Like "*静岡*" Then

             hitdata = hitdata + 1

                For j = 1 To 8

                    pickedDataArr(hitdata, j) = allmydataArr(i, j)

                Next j

            End If

        Next

    Range("M2:T" & hitdata + 1) = pickedDataArr

    stoptime = Timer

    MsgBox hitdata & "件該当ありました。" & vbCrLf & Round(stoptime - starttime, 2)

    

End Sub