🔄
FindAndReplace
データ処理アクティブシートで文字列の検索と置換を行います
🎬 デモGIF準備中
📖 使い方
- VBAエディタを開く（Alt + F11）
- モジュールを挿入（挿入 > モジュール）
- 下記VBAコードをコピー&ペースト
- ブック上で実行（Alt + F8 でマクロ選択）
💡 実行例： FindAndReplace を実行し、検索文字列と置換文字列を入力します
💻 VBAコード
' FindAndReplace
' -----------------
' Macro Name: FindAndReplace
' Description: アクティブシートで文字列の検索と置換を行います
' Parameters: なし
' Returns: なし
' Usage: FindAndReplace を実行し、検索文字列と置換文字列を入力します
' -----------------
Sub FindAndReplace()
On Error GoTo ErrorHandler
Dim ws As Worksheet
Dim findStr As String
Dim replaceStr As String
Set ws = ActiveSheet
findStr = InputBox("検索する文字列を入力してください", "検索文字列")
If findStr = "" Then Exit Sub
replaceStr = InputBox("置換後の文字列を入力してください", "置換文字列")
ws.Cells.Replace What:=findStr, Replacement:=replaceStr, _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False
MsgBox "「" & findStr & "」を「" & replaceStr & "」に置換しました", vbInformation, "完了"
Exit Sub
ErrorHandler:
MsgBox "エラーが発生しました:" & vbCrLf & Err.Description, vbCritical, "エラー"
End Sub