使用宏实现文本数据的格式转换

gargar2 · 发表于 2010-11-13 19:29

如附件，从外部导入的数据是以文本形式储存的数字，而我的想法是录制一个宏，把所有数据选中，把格式转换为数字形式
但是这个文本数据在单元格格式中设置“数字”没有作用，我都是使用错误检查选项（！那个），选择转换为数字，可是这个操作并不能直接录制进去，还请各位高手指点一下，数据格式转换为什么不可以直接设置单元格为“数字” 多谢！！

aaa.rar (217.05 KB, 下载次数: 49)

沈爱媛 · 发表于 2010-11-13 20:01

如果只是想要把文本转为数字,就很简单了。选定文本单元格，左侧会出现一个方筐里有一个感叹号，点这个感叹号，对出来一组选项，其中就有文本转换为数值。

gargar2 · 发表于 2010-11-13 20:12

呵呵多谢了那个“感叹号”就是我说的错误检查我的难处在于不能把那个导入到宏里面去：）

kevinchengcw · 发表于 2010-11-13 20:13

sub test()
with activesheet
.usedrange.numberformatlocal=""
.usedrange=.usedrange.value
end with
end sub
一般运行一次就可以将全部文本型数字变成数值型了，楼主试一下。

gargar2 · 发表于 2010-11-13 20:30

看代码是要先选中要转换的区域吧稍作修改应该就能将直接用多谢咯！

kevinchengcw · 发表于 2010-11-13 21:13

注意区分usedrange和selection

neo_989966 · 发表于 2010-11-14 23:26

kevinchengcw，你好，我是一个VBA初学者，请教一下，文本类型的单元格，如“0000888”，在按CELLS（X，Y）.VALUE赋值给STRING变量时，会按“888”进行处理吗？再由STRING变量赋值给单元格时，值变成了“888”，前面的零会去掉了，有没有办法避免？谢谢！

kevinchengcw · 发表于 2010-11-15 08:27

用cells(x,y).text试一下

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

[求助] 使用宏实现文本数据的格式转换