1


0

セル内の各値(各行)にセミコロンを追加する

私は単一のセルに次の値を持っていますA1

1234
567
454

同様に、すべてのA(N)には値が入力されます。 Nは1000から1500までさまざま

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

1234;567;454

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

1 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)、この場合はhttp://en.wikipedia.org/wiki/Newline[Newline character]です。