[已解决]如何把空格全部替换为“，”？

丨左手写爱灬 · 发表于 2012-5-22 23:27

FJ.rar (113.17 KB, 下载次数: 10)

寂寞深水鱼 · 发表于 2012-5-22 23:35

本帖最后由寂寞深水鱼于 2012-5-22 23:38 编辑

选择D列单元格查找空格替换，号左对齐直接用格式就好了不？和你第二张效果是一样噢~~

副本Xl0000014.rar (73.52 KB, 下载次数: 2)

lzclzch · 发表于 2012-5-22 23:39

本帖最后由 lzclzch 于 2012-5-22 23:42 编辑

Sub kg()
Dim mycell As Range
For Each mycell In Range("a1:e15")
mycell = Replace(mycell.Value, " ", ",")
Next mycell
End Sub

xdwy81129 · 发表于 2012-5-22 23:48

1.要保存成启用宏功能的工作簿，后缀名是xlsm

附件点击按钮就可以了，查看宏的话，右击按钮--指定宏---编辑

参数.rar (117.57 KB, 下载次数: 16)

丨左手写爱灬 · 发表于 2012-5-23 00:36

xdwy81129 发表于 2012-5-22 23:48
1.要保存成启用宏功能的工作簿，后缀名是xlsm

附件点击按钮就可以了，查看宏的话，右击按钮--指定宏---编 ...

未点击按钮

点击按钮以后

首先感谢您的热情帮助！
其次就是您能查看一下么？有三行出了点问题，第11行和14、15行，因为我这个excel文件的数据时是从后台直接导出来的数据，会不会有偏差呀？
麻烦您了！

xdwy81129 · 发表于 2012-5-23 01:14

丨左手写爱灬发表于 2012-5-23 00:36
未点击按钮

点击按钮以后

arr = Range("D1").Resize(Range("D1").End(4).Row, 1)
这个是从单元格D1向下连续的范围

上句改成下面这句
arr = Range("D1").Resize(cells(rows.Count,"D").End(3).Row, 1)
这个是从D行最尾的一行到第1行的范围

参数.rar (118.55 KB, 下载次数: 5)

lzclzch · 发表于 2012-5-23 01:35

这个最佳答案由 lzclzch 给出，感谢 lzclzch 的回答。

单击隐藏图章

这样行不行

无聊的疯子 · 发表于 2012-5-23 08:00

丨左手写爱灬发表于 2012-5-23 00:36
未点击按钮

点击按钮以后

D11单元格格式为数值,所以替换后没有 ","
而后面两个D14,D15,是由于数字字符过长系统自动把后面一数字修改成了 0 ("常规,数值,货币,等格式都是这样的")

可用代码在原数据前面添加 "' ' " 然后再替换里面的空格

替换后的格D10:D13 单元格格式为 "货币", 所以它是右对齐的
并且只是显示的数据有"," 的数据,其实际内容是没有 "," 的

只有文本格式的实际数据才是有 "," 的

zjyxp · 发表于 2012-5-23 08:29

向各位老师学习！！

丨左手写爱灬 · 发表于 2012-5-23 22:51

lzclzch 发表于 2012-5-23 01:35
这样行不行

很好！谢谢你了！问题得到解决！
还有
Columns(4).NumberFormatLocal = "@"
这一句是什么意思呀！

		自动登录	找回密码
密码			注册

[已解决]如何把空格全部替换为“，”？

相关帖子

浏览过的版块