下記のプログラムは、下表のデータにあるB列「会社名」の㈱・(株)・(カブ)を一括に「株式会社」へ変換するプログラムです。データベースとして統一したデータを作成する際に、㈱・(株)・(カブ)など意味としては同じですが、データ(文字列)で表すと別の意味となってしまいますので、統一した文字列に変換する必要があります。
Sub Standardization01() '株式会社⇒変換 Dim KabuEx As Variant Dim CopData As Range Dim lRow As Long lRow = Cells(Rows.Count, "B").End(xlUp).Row 'B列の最終行を取得 Set CopData = Range("B2:B" & lRow) 'B列「会社名」を参照指定 For Each KabuEx In Array("(株)", "㈱", "(カブ)") '変換する文字列の指定「(株)", "㈱", "(カブ)」を「株式会社」へ変換 CopData.Replace what:=KabuEx, replacement:="株式会社" '("(株)", "㈱", "(カブ)") を⇒「株式会社」に統一 Next End Sub
Sub Standardization02() '株式会社⇒消去 Dim KabuEx As Variant Dim CopData As Range Dim lRow As Long lRow = Cells(Rows.Count, "B").End(xlUp).Row 'B列の最終行を取得 Set CopData = Range("B2:B" & lRow) ''B列「会社名」を参照指定 For Each KabuEx In Array("(株)", "㈱", "(カブ)", "株式会社") '消去する文字列を指定します。 CopData.Replace what:=KabuEx, replacement:="" '(株)", "㈱", "(カブ)", "株式会社")を⇒ ""(消去) Next End Sub
下記のプログラムは、下表のデータにあるB列「書籍名」・C列「Office」に登録されている「(エクセル・エクセル・excel)」の複数文字列を「EXCEL」(英文字)へ一括へ変換(置換)を行うプログラムです。 黄色枠に文字列を指定し「変換元」と「変換後」の文字列を指定する複数文字列変更を行います。
Sub Standardization03() '(エクセル・エクセル・excel) ⇒ EXCEL(英文字)へ変換 Dim ShosekiEx, Henkan As Variant Dim BooksData As Range Dim MojiEX As String Dim lRow As Long lRow = Cells(Rows.Count, "B").End(xlUp).Row 'B列の最終行を取得 Set BooksData = Range("B2:C" & lRow) ''B列~C列「書籍名」及び「Office」を参照指定 Set Henkan = Range("E2:E4") '配列に指定(エクセル・エクセル・excel) MojiEX = Range("F2") 'セルF2:変換する文字列として「EXCEL」英字に指定 For Each ShosekiEx In Henkan '変換する文字列を指定します。 BooksData.Replace what:=ShosekiEx, replacement:=MojiEX, MatchByte:=False '配列に指定した(エクセル・エクセル・excel)⇒EXCELに変換します。 Next End Sub
Sub Standardization05() '文字列の空白(スペース)を削除 Dim L, I, M, lRow, mRow, xRow As Long Dim MojIEx, RETS As String RETS = InputBox("空白削除したい列指定(A-Z)") '削除したい列を指定します。 lRow = Cells(Rows.Count, RETS).End(xlUp).Row 'データ最終行を取得 For I = 2 To lRow 'データの最終行まで繰り返す。 MojIEx = Cells(I, RETS) '選択したセルの文字列データを取得 MojIEx = Replace(MojIEx, " ", "") '半角スペースを削除 MojIEx = Replace(MojIEx, " ", "") '全角スペースを削除 Cells(I, RETS) = MojIEx '変換後(スペースを削除した文字列データをセルに戻す。) Next I MsgBox "選択した列の空白削除しました。" End Sub