🔄
NormalizeData
データ処理選択範囲のテキストを正規化します（全角英数字→半角、前後スペース削除）
🎬 デモGIF準備中
📖 使い方
- VBAエディタを開く（Alt + F11）
- モジュールを挿入（挿入 > モジュール）
- 下記VBAコードをコピー&ペースト
- ブック上で実行（Alt + F8 でマクロ選択）
💡 実行例： 正規化したいセル範囲を選択してから NormalizeData を実行します
💻 VBAコード
' NormalizeData
' -----------------
' Macro Name: NormalizeData
' Description: 選択範囲のテキストを正規化します（全角英数字→半角、前後スペース削除）
' Parameters: なし
' Returns: なし
' Usage: 正規化したいセル範囲を選択してから NormalizeData を実行します
' -----------------
Sub NormalizeData()
On Error GoTo ErrorHandler
Dim rng As Range
Dim cell As Range
Dim normalizedCount As Long
Dim original As String
If TypeName(Selection) <> "Range" Then
MsgBox "セル範囲を選択してから実行してください", vbCritical, "エラー"
Exit Sub
End If
Set rng = Selection
normalizedCount = 0
For Each cell In rng
If Not IsEmpty(cell) And VarType(cell.Value) = vbString Then
original = cell.Value
cell.Value = Trim(StrConv(cell.Value, vbNarrow))
If cell.Value <> original Then normalizedCount = normalizedCount + 1
End If
Next cell
MsgBox normalizedCount & " セルを正規化しました", vbInformation, "完了"
Exit Sub
ErrorHandler:
MsgBox "エラーが発生しました:" & vbCrLf & Err.Description, vbCritical, "エラー"
End Sub