エクセルVBAマクロを自動作成する無料アプリです。
例として「複数の文字を置換 (Replace)する」VBAマクロを作成します。
Replaceを使わず、置換表を使う場合はこちら↓
事例 ひらがなを一括して漢字に変換します。
アプリの設定
アプリへのリンク ⇒複数の指定文字を、置換する (n対n)
アプリの画面
アプリで作成したコードを、VBE画面に貼り付けて実行します。
変換されました。
できました😁
VBAコードを見る
Sub デモ() '置換(n対n)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim cellRange As String, myCell As Range
Dim bottomRight As String
Sheets("Sheet1").Select
Range("a1").CurrentRegion.Select
bottomRight = Selection.Item(Selection.Count).Address(False, False)
cellRange = "a1" & ":" & bottomRight
Range(cellRange).Select
Dim conditionValue1 As Variant, conditionValue2 As Variant
conditionValue1 = Split("あか,あお", ",")
conditionValue2 = Split(" 赤,青", ",")
if UBound(conditionValue1) <>UBound(conditionValue2) then
MsgBox "置換前と後の、単語の数が異なるので終了します"
exit sub
end if
Dim myCount As Long
For myCount = LBound(conditionValue1) To UBound(conditionValue1)
Selection.Replace What:=conditionValue1(myCount), Replacement:=conditionValue2(myCount)
Next myCount
Application.DisplayAlerts = true
Application.ScreenUpdating = True
End Sub
【スクリーンショット4選】エクセルVBAで置換処理