【2024VBA中級】特訓配列１回 大量のコードと事例を見て書いて、配列に慣れる、使えるレベルまで 底上げ企画 マクロ講座中級 108回 コードは概要欄

[@Excel-jyuku]

今回使用したコードです。
動画内のコードタイムのコードは他の配列動画のコードと取り違えてしまいました。申し訳ありません。
Sub search_like()
Dim allmydataArr As Variant
allmydataArr = Range("A1").CurrentRegion.Value

Dim pickedDataArr(1 To 10000, 1 To 11) As Variant
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, 7) Like "静岡県*" = True Then
hitdata = hitdata + 1
For j = 1 To 11
pickedDataArr(hitdata, j) = allmydataArr(i, j)
Next j
End If
Next
Dim sh As Worksheet
Set sh = Workbooks.Add.Worksheets(1)
sh.Range("A2:K" & hitdata + 1) = pickedDataArr

End Sub