请问excel中“转换为数字”如何用VB代码或宏实现?

[walter163]

请问这种系统里面直接导出的数据格式有错误，如何用代码或宏实现对错误的纠正？如何转换为数字？
录制宏似乎没有办法解决……
请教高手，先谢过~

[FJY]

这个简单 你可以自己录制一段宏程序（按照你想要的步骤操作一遍） 就可以看到这个函数是什么了

[赵4老师]

=Val(...)?

[walter163]

[Quote=引用 2 楼 fjy0412 的回复:]

这个简单 你可以自己录制一段宏程序（按照你想要的步骤操作一遍） 就可以看到这个函数是什么了
[/Quote]

录制没有相应的代码……

[walter163]

我发个样本到115，麻烦各位看下，多谢
http://u.115.com/file/cltogsqz#
test.rar

[walter163]

http://u.115.com/file/cltogsqz#test.rar

[zdingyun]

我在7楼回复了,但在我回复的帖子中看不到了.再回复测试下.

[倒大霉的上帝]

dim x as long 
dim y as long 

for x=1 to 10
   for y=1 to 2
        cells(x,y).formular1c1=cells(x,y)
   next y
next x

[zdingyun]

我目前也遇到同样的问题,暂时解决方法是EXCEL工作薄中先手工输入一行数据,VB输入的数据就与前行相同格式.

[walter163]

EXCEL之家的Zamyi网友给出了解答，我贴出来

Private Sub 文本转数字()
With ActiveSheet.UsedRange
  .NumberFormatLocal = "G/通用格式"
  .Value = .Value
End With
End Sub

[walter163]

上面是VBA代码