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。

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

1 个答案: