谁能将文本格式转换成数字格式（别小看了）

hahbin · 发表于 2010-12-13 19:40

所有的数据都乘以1就可以了。用选择性粘贴

waitforthem · 发表于 2010-12-13 19:47

把这个格选中，点击“格式”中的“单元格”，选数字。

香川群子 · 发表于 2010-12-13 20:05

原帖由 hahbin 于 2010-12-13 19:40 发表
所有的数据都乘以1就可以了。用选择性粘贴

这位新人，你打开看过附件吗？

你试过自己的方法吗？

这样轻率地发帖，误导别人那就算被误导的人自己倒霉，但是关键是对你自己也没有好处。

请您今后一定要改正！

香川群子 · 发表于 2010-12-13 20:06

原帖由 waitforthem 于 2010-12-13 19:47 发表
把这个格选中，点击“格式”中的“单元格”，选数字。

这位新人，你打开看过附件吗？

你试过自己的方法吗？

这样轻率地发帖，误导别人那就算被误导的人自己倒霉，但是关键是对你自己也没有好处。

请您今后一定要改正！

香川群子 · 发表于 2010-12-13 20:10

原帖由 任青儿 于 2010-12-13 16:23 发表
复制------粘贴-------值和数字形式,就好了,

这位新人，你打开看过附件吗？

你试过自己的方法吗？

这样轻率地发帖，误导别人那就算被误导的人自己倒霉，但是关键是对你自己也没有好处。

请您今后一定要改正！

sdtaiyang · 发表于 2010-12-13 20:18

跟帖学习下经验

香川群子 · 发表于 2010-12-13 20:55

原帖由 gufengaoyue 于 2010-12-13 15:53 发表
840962

最简单的，做个函数
Public Function num(ByVal x As Range)
num = Format(x, "0.00") '把这单元格格式化了
End Function

在E3输入： =num(A3)+0
下拉全部搞定！

这个vba自定义函数方法也很不错!

我还以为要用for循环遍历每个字符看是否数字呢……

没想到format()函数这样给力！

不过，既然已经用到vba了，
那么索性这样

Public Function TNum(ByVal x As Range)
TNum = Format(x, "0." & String(Len(x), "0"))
End Function
这个改进，对于小数点后的位数就可以智能判断啦，
否则37楼【gufengaoyue】的函数格式是"0.00"，
那就只对小数点两位以内的起作用，超过就被cut啦。

Public Function VNum(ByVal x As Range)
VNum = Val(Format(x, "0." & String(Len(x), "0")))
End Function
这个改进是针对+0处理的，用了Val函数就把文本数字直接转换为数字格式啦。

但是，由于实际上一般单元格都能对文本字符也做自动运算，
所以是否需要这样做应该由使用者，即楼主来判断啦。

谢谢37楼【gufengaoyue】

yz1995 · 发表于 2010-12-13 21:06

=SUBSTITUTE(A10," ",)

大漠2010 · 发表于 2010-12-13 22:19

学习了,感谢!!!!

capricorn · 发表于 2010-12-13 22:26

声明一下，49楼是错的。
希望每个看帖的人都能从一楼开始看，并下载附件测试各位老师的方法，将能从中学习到很多。

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

[讨论] 谁能将文本格式转换成数字格式（别小看了）