Excelで都道府県抽出の「=LEFT(A2,3+(MID(A2,4,1)="県"))」関数式は使ってはいけない

Function GetPrefecture(str As String) As String
    Dim prefectures As Variant
    Dim i As Integer
    
    prefectures = Array("北海道", "青森県", "岩手県", "宮城県", "秋田県", "山形県", "福島県", _
                        "茨城県", "栃木県", "群馬県", "埼玉県", "千葉県", "東京都", "神奈川県", _
                        "新潟県", "富山県", "石川県", "福井県", "山梨県", "長野県", "岐阜県", _
                        "静岡県", "愛知県", "三重県", "滋賀県", "京都府", "大阪府", "兵庫県", _
                        "奈良県", "和歌山県", "鳥取県", "島根県", "岡山県", "広島県", "山口県", _
                        "徳島県", "香川県", "愛媛県", "高知県", "福岡県", "佐賀県", "長崎県", _
                        "熊本県", "大分県", "宮崎県", "鹿児島県", "沖縄県")

    For i = LBound(prefectures) To UBound(prefectures)
        If Left(str, Len(prefectures(i))) = prefectures(i) Then
            GetPrefecture = prefectures(i)
            Exit Function
        End If
    Next i
    
    GetPrefecture = "⚠️文字列の先頭が都道府県ではありません！"
End Function

const prefectures = [
  '北海道', '青森県', '岩手県', '宮城県', '秋田県', '山形県', '福島県', 
  '茨城県', '栃木県', '群馬県', '埼玉県', '千葉県', '東京都', '神奈川県', 
  '新潟県', '富山県', '石川県', '福井県', '山梨県', '長野県', '岐阜県', 
  '静岡県', '愛知県', '三重県', '滋賀県', '京都府', '大阪府', '兵庫県', 
  '奈良県', '和歌山県', '鳥取県', '島根県', '岡山県', '広島県', '山口県', 
  '徳島県', '香川県', '愛媛県', '高知県', '福岡県', '佐賀県', '長崎県', 
  '熊本県', '大分県', '宮崎県', '鹿児島県', '沖縄県'
]

function getPrefecture(str) {
  const prefecture = prefectures.find(p => str.startsWith(p))
  return prefecture ? prefecture : '⚠️文字列の先頭が都道府県ではありません！'
}

=IFERROR(
  INDEX(prefectures!$A$1:$A$47, MATCH(TRUE, ARRAYFORMULA(LEFT(A2, LEN(prefectures!$A$1:$A$47)) = prefectures!$A$1:$A$47), 0)),
  "⚠️文字列の先頭が都道府県ではありません！"
)