【ノーコード】VBAコードを作成する無料アプリ

AIで自分の価値を高める方法とは🙄

MENU

【ノーコードVBA】複数の文字を置換する (Replace)

エクセル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で置換処理