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

我在单个单元格中有以下值设为A1

1234
567
454

同样，所有A（N）都用值填充。N从1000到1500不等

我想把它转换成

1234;567;454 

---

有快捷方式吗？

编辑：对不起，没有正确阅读您的问题

您可以这样编写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）

，在我们的例子中是。

编辑：对不起，没有正确阅读您的问题

您可以这样编写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）

，在我们的例子中，

O/p是1234\n567\n454；——\n表示一条新的线非常好！谢谢你的编辑，我想知道如何在一个列中的所有值上进行编辑。当我选择一列并运行它时，只会格式化列中的第一个单元格。我可以知道第二个参数Chr（10）指的是什么吗。O/p是1234\n567\n454；——\n表示一条新的线非常好！谢谢你的编辑，我想知道如何在一个列中的所有值上进行编辑。当我选择一列并运行它时，只会格式化列中的第一个单元格。我想知道第二个参数Chr（10）指的是什么。