エクセルVBAマクロを自動作成する無料アプリです。
例として「置換表で複数の置換を一括処理する 」VBAマクロを作成します。
事例 置換表で、住所の書式を統一します
右側の表が置換表です。
アプリの設定
アプリへのリンク ⇒置換表をつかい、複数の置換を一括処理
アプリの画面
アプリで作成したコードを、VBE画面に貼り付けて実行します。
住所の書式が統一されました。
VBAコードを見る
Sub デモ() '置換表をつかい、複数の置換を一括処理
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim cellRange As String, myCell As Range
Sheets("Sheet1").Select
Dim lastRow As Long
lastRow = Cells(Rows.Count, Range("A1").Column).End(xlUp).Row
cellRange = "a2" & ":" & Cells(lastRow, Range("a2").Column).Address(False, False)
Range(cellRange).Select
Dim conversionTable As Variant
conversionTable = Sheets("Sheet1").Range("c2:d9")
Dim elementCount As Long
For elementCount = LBound(conversionTable, 1) To UBound(conversionTable, 1)
Selection.Replace What:=conversionTable(elementCount, 1), Replacement:=conversionTable(elementCount, 2), LookAt:=xlPart
Next elementCount
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
【ｽｸﾘｰﾝｼｮｯﾄ4選】エクセルVBAで置換処理
