web-dev-qa-db-ja.com

既存のテキストの後にキャリッジリターンを挿入し、さらにテキストを貼り付けるVBA

特定のセル内に「Measure_1」を追加しています。これには、セルをダブルクリックし、既存のテキストの最後に移動し、キャリッジリターン(alt + ent)を挿入してから、MEASURE_1に貼り付ける必要があります。したがって、私はこれを自動化しようとしています。

残念ながら、以下のVBAコードは、マクロを記録するときに使用した例で既存のテキストを上書きしています。

activecell.FormulaR1C1 = "D4)" & Chr(10) & "MEASURE_1"

どうすれば言うことができますか:

activecell.FormulaR1C1 = **ANY TEXT WITHOUT CHANGING** & Chr(10) & "MEASURE_1"

どうもありがとう。マイケル。

1
RocketGoal

activecell.FormulaR1C1 = activecell.FormulaR1C1 & Chr(10) & "MEASURE_1"を試してください