[[20230702123427]]　『改行して文字を追記したい　VBA』（セン）　ページの最後に飛ぶ

『改行して文字を追記したい　VBA』（セン）

セルを選んで文字を入力するときに、改行してから文字を入力したいです。

選ぶセルは文字が既に入力されているもの、空白のもの　どちらの場合もあり

どちらの場合でも改行してセル内の２段目に入力したいのです。

その際に、既に入力されている文字を消さずに残して記入したいです。

  ________
 |  abc   | このようなセルに
 |        |
　￣￣￣￣

  ________
 |        |　
 |        |
　￣￣￣￣

  ________
 |  abc   |　このように追記したいです
 |  ZZZ   |
　￣￣￣￣

  ________
 |        |
 |  ZZZ   |
　￣￣￣￣

選ぶセルは多くあり、該当するものはマクロを用いて自動ですべて選択する

ようにしています。

また改行した後に入力する文字もすべて同じ文字のため、

マクロで処理したいと考えています。

よろしくお願いします。

＜使用 Excel：Excel2019、使用 OS：Windows10 ＞

 改行という特別の操作をすると考えずに、改行文字を追加すると考えて下さい。
 例として、選択中のセルの各要素を対象にしたコードを示します。

 Sub test()
    Const s As String = "ZZZ" ' 追加したい文字
    Dim r As Range

    For Each r In Selection
        r.Value = r.Value & vbLf & s
    Next
 End Sub
 場合によっては、「折り返して全体を表示」で調整する必要があるかもしれません。
（xyz） 2023/07/02(日) 13:49:41

xyz　さん　返信ありがとうございます。

教えていただいたマクロでうまくいきました！！

＞＞改行という特別の操作をすると考えずに、改行文字を追加すると考えて下さい。

こういう風に考えることが必要だったのですね。

とても勉強になりました。

（セン） 2023/07/02(日) 18:09:22

コメント返信：

[ 一覧(最新更新順) ]

[[20230702123427]] 『改行して文字を追記したい VBA』（セン） ページの最後に飛ぶ

[[20230702123427]]　『改行して文字を追記したい　VBA』（セン）　ページの最後に飛ぶ