首页
学习
活动
专区
工具
TVP
发布
社区首页 >问答首页 >将分号添加到单元格中的每个值(每行)

将分号添加到单元格中的每个值(每行)
EN

Stack Overflow用户
提问于 2009-12-16 15:00:49
回答 1查看 2.5K关注 0票数 1

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

代码语言:javascript
复制
1234
567
454

同样,所有的A(N)都是用值填充的。N从1000到1500不等

我想把这个转换成

代码语言:javascript
复制
1234;567;454 

有可用的快捷方式吗?

EN

回答 1

Stack Overflow用户

回答已采纳

发布于 2009-12-16 15:14:50

编辑:很抱歉,没有正确阅读您的问题...

您可以像这样编写vba脚本:

代码语言:javascript
复制
Sub test()
  Dim result As String
  result = Replace(ActiveCell.value, Chr(10), ";")
  ActiveCell.Offset(1, 0).Select
  ActiveCell.value = result
End Sub

它将获取活动的单元格,用分号替换所有换行符,并将结果放入下一行。

编辑:对多个单元格执行此操作的另一个版本:

代码语言:javascript
复制
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
EN
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接:

https://stackoverflow.com/questions/1912832

复制
相关文章

相似问题

领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档