[已解决]小白请教大神如何批量把导出的数据转化为数值

531tommy

请问文件导入的数据为文本格式，如何转换为数值呢？
我使用for   cells(1,2)=cells(i,2).value 这样转化数据多起来的时候运行太慢了，有批量效率的方法吗？


格式转换.zip (6.73 KB, 下载次数: 9)

2021-10-29 11:17 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

cutecpu

2021-10-29 12:48

531tommy 发表于 2021-10-29 12:44
感谢您，学习了CADTE的转化日期，但要是把range(a:e)范围的数据都转化为数值是怎样哦

Sub demo()
   With Sheet1.UsedRange
      .Value = .Value
   End With
   a = Range([b2], [b2].End(4))
   For i = 1 To UBound(a)
      a(i, 1) = CDate(a(i, 1))
   Next
   [b2].Resize(UBound(a)) = a
End Sub

跳转到最佳答案楼层

砂海

文本型数字 转数字:
数据 > 分列

531tommy

砂海 发表于 2021-10-29 11:31
文本型数字 转数字:
数据 > 分列

不明白你说的呢，VB的代码需要怎样表达呢？

cutecpu

Sub demo()
   a = Range([b2], [b2].End(4))
   For i = 1 To UBound(a)
      a(i, 1) = CDate(a(i, 1))
   Next
   [b2].Resize(UBound(a)) = a
End Sub

祝順心，南無阿彌陀佛！

531tommy

cutecpu 发表于 2021-10-29 11:49
Sub demo()
   a = Range(, .End(4))
   For i = 1 To UBound(a)

感谢您，学习了CADTE的转化日期，但要是把range(a:e)范围的数据都转化为数值是怎样哦

cutecpu

531tommy 发表于 2021-10-29 12:44
感谢您，学习了CADTE的转化日期，但要是把range(a:e)范围的数据都转化为数值是怎样哦

Sub demo()
   With Sheet1.UsedRange
      .Value = .Value
   End With
   a = Range([b2], [b2].End(4))
   For i = 1 To UBound(a)
      a(i, 1) = CDate(a(i, 1))
   Next
   [b2].Resize(UBound(a)) = a
End Sub

531tommy

cutecpu 发表于 2021-10-29 12:48
Sub demo()
   With Sheet1.UsedRange
      .Value = .Value

原来这样，涨知识了

心正意诚身修

531tommy 发表于 2021-10-29 11:36
不明白你说的呢，VB的代码需要怎样表达呢？

如果你连分列都 不明白 。你去弄VBA。那就是空中楼阁。

心正意诚身修

选择性粘贴 。+    三秒就可以搞定。不需要代码。 点两下鼠标，就可以搞完。