将分号添加到单元格中的每个值(每行)
将分号添加到单元格中的每个值(每行)
提问于 2009-12-16 15:00:49
我在一个单元格中有以下值，设为A1
1234
567
454同样，所有的A(N)都是用值填充的。N从1000到1500不等
我想把这个转换成
1234;567;454 有可用的快捷方式吗？
回答 1
Stack Overflow用户
回答已采纳
发布于 2009-12-16 15:14:50
编辑：很抱歉，没有正确阅读您的问题...
您可以像这样编写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。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/1912832
复制相关文章
相似问题
腾讯云开发者
