選択範囲の文字を半角にする
For Each Nextでいろいろ作ってみた その4
選択範囲の文字を半角にするマクロです。
***************************************
Sub 選択範囲の文字を半角にする()
Dim myRange As Range
For Each myRange In Selection
myRange.Value = StrConv(myRange.Value, vbNarrow)
Next myRange
End Sub
***************************************
※SubからEnd Subまでをコピペしてマクロを使用できます。使用の際は自己責任でお願いいたします。