用宏批量将文本转数字

hgx126 · 发表于 2012-9-28 23:41

一文本，内空分别有数字，文本格式的数字，中文，英文。现在要求：按Ctrl+A即全选后执行一个宏，批量将文本格式的数字转换成数字，其它单元格内的内容不变。求此宏代码。

Book1.rar (4.22 KB, 下载次数: 44)

zhaogang1960 · 发表于 2012-9-28 23:47

请参考：

Sub Macro1()
With ActiveSheet.UsedRange
.NumberFormatLocal = "G/通用格式"
.Value = .Value
End With
End Sub

复制代码

牧羊1人 · 发表于 2012-9-28 23:55

哇哦，高手在人间，老师在身边{:soso_e104:}

杨小军 · 发表于 2012-9-29 00:03

牧羊1人发表于 2012-9-28 23:55
哇哦，高手在人间，老师在身边

超过15位的转成数值就变成科学计数也没事吗？

qy1219no2 · 发表于 2012-9-29 01:37

本帖最后由 qy1219no2 于 2012-9-29 01:40 编辑

根本不用那么麻烦！！！
全部选中后，鼠标指向第一个左上角带绿色小三角形的单元格，会出现一个黄色感叹号，鼠标点击，选择“转换为数字”则一次性全部转换为数字了
或者：
任意空白单元格输入0，选择并复制，再全部选中单元格，执行“选择性粘贴——数值——加”，确定，OK
但长度超过15位的数字，将丢掉超过15位点的数字

牧羊1人 · 发表于 2012-9-29 12:15

杨小军发表于 2012-9-29 00:03
超过15位的转成数值就变成科学计数也没事吗？

这个倒没有了发现{:soso_e110:}

hgx126 · 发表于 2012-9-29 15:19

再求助：按此要求，全选后数字转文本的宏代码又如何写？

keleccy · 发表于 2012-11-15 21:30

zhaogang1960 发表于 2012-9-28 23:47
请参考：

简短高效，厉害。

hgx126 · 发表于 2012-12-30 21:17

zhaogang1960 发表于 2012-9-28 23:47
请参考：

能否把这个代码修改一下，　让其只适用于被选择单元格，而不是表格内全部单元格？

zhaogang1960 · 发表于 2012-12-30 21:22

hgx126 发表于 2012-12-30 21:17
能否把这个代码修改一下，　让其只适用于被选择单元格，而不是表格内全部单元格？

Sub Macro1()
If TypeName(Selection) <> "Range" Then
MsgBox "请选择单元格区域。", vbInformation + vbYesNo, "提示"
Exit Sub
End If
With Selection
.NumberFormatLocal = "G/通用格式"
.Value = .Value
End With
End Sub

复制代码

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

[求助] 用宏批量将文本转数字