cell - 将分号添加到单元格中的每个值（每行）

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)是换行符。