cell - セルの各値（各行）にセミコロンを追加します

Question

単一のセルに次の値があります。A1とします。

1234
567
454

同様に、すべてのA（N）は値で埋められます。1000から1500までさまざまなN

これを次のように変換したい

1234;567;454 

利用可能なショートカットはありますか？

Answer 1

編集：申し訳ありませんが、あなたの質問を正しく読んでいませんでした...

次のようなvbaスクリプトを作成できます。

Sub test()
  Dim result As String
  result = Replace(ActiveCell.value, Chr(10), ";")
  ActiveCell.Offset(1, 0).Select
  ActiveCell.value = result
End Sub

アクティブなセルを取得し、すべての改行をセミコロンに置き換えて、結果を次の行に配置します。

編集：複数のセルに対してこれを行う別のバージョン：

Sub test()
  Dim value As String
  Do
    value = ActiveCell.value
    If (value = "") Then Exit Do
    ActiveCell.Offset(0, 1).value = Replace(ActiveCell.value, Chr(10), ";")
    ActiveCell.Offset(1, 0).Select
  Loop While (True)
End Sub

このバージョンはアクティブセルから開始し、空のセルが見つかるまで下のすべてのセルをループします。

置き換えられた値は、元の値の隣のセルに書き込まれます。元の値を置き換える場合は、を削除し.Offset(0, 1)ます。

2番目のパラメーターは、置き換えられる値です。この場合Chr(10)は、改行文字です。