VBAで、特殊文字を削除して左詰めにするマクロを作成したいのですが、可能でしょうか?特殊文字としてはスラッシュ、アンダーバー、スペース、ドットがあり、全角と半角が混在しています。

はい、VBAを使用して特殊文字を削除して左詰めするマクロを作成することは可能です。以下は一例です。

“`vba
Sub RemoveSpecialChars()
Dim cell As Range
Dim specialChars As String
Dim i As Integer

‘ 削除する特殊文字を指定します
specialChars = “/_ .”

For Each cell In Selection ‘ セルの範囲を選択して実行してください
For i = 1 To Len(specialChars)
‘ 特殊文字を削除してセルの値を更新します
cell.Value = Replace(cell.Value, Mid(specialChars, i, 1), “”)
Next i

‘ セルの値を左詰めにします
cell.Value = Trim(cell.Value)
Next cell
End Sub
“`

上記のマクロでは、選択したセル内の特殊文字を削除して、セルの値を左詰めにします。`specialChars`変数に削除する特殊文字を指定し、`For`ループでセルの値をそれぞれの特殊文字で置換しています。最後に`Trim`関数を使用してセルの値を左詰めにしています。

使用方法としては、エクセルで特殊文字を削除して左詰めしたいセル範囲を選択し、VBAエディタで上記のマクロを貼り付けて実行してください。

コメントを残す