将单词添加到单元格中的每个值（每行）

Question

我将单个单元格中的以下值设为A1

1234
567
454

同样地，所有A（N）都填充有值。 N各种从1000到1500

我希望将其转换为

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)。

第二个参数是要替换的值，它是Chr(10)，在我们的例子中是Newline character。