求助大神，如何把表格批量转换成数字

super、man · 发表于 2022-8-16 10:20

求助大神，数据是由软件导出，但导出后数据均不是数据格式。现需要处理的工作表比较多，能不能整个工作簿一起批量转换成数字。谢谢！

第一宝 · 发表于 2022-8-16 10:22

选中区域，点击转化成数值

super、man · 发表于 2022-8-16 10:24

第一宝发表于 2022-8-16 10:22
选中区域，点击转化成数值

能不能批量改，就是所有工作表一起改，挨个改太麻烦了

第一宝 · 发表于 2022-8-16 10:29

Sub 数值()
For Each i In Sheets
i.Select
arr = ActiveSheet.UsedRange
ActiveSheet.UsedRange = arr
Next
End Sub

复制代码

复制代码运行一下，所有表格就全部数值化了

第一宝 · 发表于 2022-8-16 10:30

super、man 发表于 2022-8-16 10:24
能不能批量改，就是所有工作表一起改，挨个改太麻烦了

Sub 数值()
For Each i In Sheets
      i.Select
      arr = ActiveSheet.UsedRange
      ActiveSheet.UsedRange = arr
Next
End Sub
复制代码，运行一下就全部数值了

第一宝 · 发表于 2022-8-16 10:31

super、man 发表于 2022-8-16 10:24
能不能批量改，就是所有工作表一起改，挨个改太麻烦了

给写了一个批量处理的代码，在审核中，一会就可以看到了

关表哥 · 发表于 2022-8-16 16:37

去PQ里转一圈再回来就可以了

赟驰奔驰 · 发表于 2022-8-16 16:42

用shift键按住第一个表格再点击最后一个表格，全选选择性粘贴乘1

super、man · 发表于 2022-8-16 16:44

第一宝发表于 2022-8-16 10:30
Sub 数值()
For Each i In Sheets
i.Select

感谢！大神

huarong7984 · 发表于 2022-9-14 10:42

第一宝发表于 2022-8-16 10:29
复制代码运行一下，所有表格就全部数值化了

第一宝：您好。首先感谢你编写的批量文本转数值的VBA代码！困为我也遇到此类问题，而且我是通过函数组合公式来解决，比较麻烦，分享并采用您有VBA代码法，十分简捷快速，非常感谢您！另，在工作运用中，我还遇到一个问题：
就是有一列(C列)是18位身份证号，还有2列（D列和F列）不需要转换为数值型，请问应如何修改VBA代码？敬请指教，谢谢您！

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

[求助] 求助大神，如何把表格批量转换成数字