VBA 配列で不揃いの「株式会社」を統一する

実務では、株式会社など意味同じの文字列が多数の形式があって、それを揃うには割りと時間がかかります。今日は、配列でそれを一括統一方法を見て見ましょう。

 

配列で不揃いの株式会社を統一する

 

Sub test()
 

    '　配列で不揃いの株式会社を統一する
    
    Dim i As Long
    Dim kabu, s
    Dim myN As String
    
    i = 4
    Do
        myN = Cells(i, "A").Value
        kabu = Array("（株）","（株", "株）", "㈱", ChrW(&H337F), ChrW(&H3291), ChrW(&H33CD))
        For Each s In kabu
            myN = Replace(myN, s, "株式会社", , , vbTextCompare)
        Next
        Cells(i, "B") = myN
        i = i + 1
    Loop While i <= 11


End Sub

 

 

 

実行結果

 

 

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る 

 

参考記事