文字の末尾に指定した文字を追加する
セルにあらかじめ入っている文字列(文字列以外でも可)の末尾に、InputBoxで指定し
た文字を追加します。
実行前
実行後
選択したセル範囲(可視セルのみ)に対し、For Each Nextで下記の処理を行います。
オブジェクト.Value = オブジェクト.Value & 変数(InputBoxで入力された文字)
***************************************
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 = myRange.Value & V
End If
Next myRange
End Sub
***************************************
※SubからEnd Subまでをコピペしてマクロを使用できます。使用の際は自己責任でお
願いいたします。
使用する際の注意
マクロで行った処理は「元に戻す」ことができない為、マクロ実行前に保存することを
お勧めします。
冒頭に文字を追加する場合はこちら