文字の冒頭に指定した文字を追加する
セルにあらかじめ入っている文字列(文字列以外でも可)の冒頭に、InputBoxで指定した文字を追加します。
実行前
実行後
選択したセル範囲(可視セルのみ)に対し、For Each Nextで下記の処理を行います。
オブジェクト.Value = 変数(InputBoxで入力された文字) & オブジェクト.Value
***************************************
Sub 冒頭に文字を追加する()
Dim V As Variant
Dim myRange As Range
V = Application.InputBox(Prompt:="冒頭に追加する文字を入力して下さい", Type:=2)
If TypeName(V) = "Boolean" Then
Exit Sub
End If
For Each myRange In Selection.SpecialCells(xlCellTypeVisible) '可視セルのみに処理を行う
If myRange.Address = myRange.MergeArea(1).Address Then '結合セルの場合は左上のセルのみ処理する
myRange.Value = V & myRange.Value
End If
Next myRange
End Sub
***************************************
※SubからEnd Subまでをコピペしてマクロを使用できます。使用の際は自己責任でお願いいたします。
使用する際の注意
マクロで行った処理は「元に戻す」ことができない為、マクロ実行前に保存することをお勧めします。
末尾に文字を追加する場合はこちら