複数選択したセルの最後に同じ文字を加える方法

質問

Excelで複数セルを選択したとき、全てののセルの最後尾に同じ文字を加える方法はありますか？

　また、オートシェイプでテキスト入りの図形を作成したときに、作成した全ての図形を選択し、テキストの最後に同じ文字を加える方法はありますか？

回答No.2

hige_082 · ベストアンサー

マクロじゃないと出来ないと思うので、マクロです
マクロ中の
追加したい文字列 = "-123abc"の""に挟まれた部分に
追加したい文字列を設定

Sub 文字列を追加()
Dim myOB As Object
Dim 追加したい文字列 As String

追加したい文字列 = "-123abc"

For Each myOB In Selection
If TypeName(myOB) = "Range" Then
myOB.Value = myOB.Value & 追加したい文字列
Else
myOB.Text = myOB.Text & 追加したい文字列
End If
Next
End Sub

セルでも図形でも選択してマクロ実行

注意　図形は文字追加しか考えてないので
　　　文字の入力の無い図形を選択するとエラーがでます
　　　２つ以上選択しないとエラーになる

参考程度に！

お礼

回答ありがとうございました。
　コマンドで何かあるのかなと思ったのですが、
　マクロを使うか、数式で別の場所に作るしかなさそうですね。

　マクロを実行してみたらうまくできました。
　マクロを勉強してみます。

回答No.1

xls88

＞Excelで複数セルを選択したとき、
＞全てののセルの最後尾に同じ文字を加える方法はありますか？
セルを選択しただけで、文字を追加するのは難しいと思います。

”セルを選択しただけ”に拘らない場合
≪数式の例≫
=A1&"-ABC"

≪マクロの例≫
Sub test1()
ActiveCell.Value = ActiveCell.Value & "-ABC"
End Sub

＞作成した全ての図形を選択し、
＞テキストの最後に同じ文字を加える方法はありますか？
マクロになると思います。

お礼

回答、ありがとうございました。
　参考になりました。
　数式で別の場所に作るか、マクロで作るしかなさそうですね。