求助：文本转数值代码不能正常运行，求解原因。

皮皮坦克

代码在这个工作簿中不生效，在其他工作簿中可以正常运行，为什么？是因为格式吗？

liulang0808

1. 
   
2. Sub 文本转数值()
   
3.     Application.ScreenUpdating = False
   
4.     arr = [a1].CurrentRegion
   
5.     [a1].CurrentRegion.Clear
   
6.     [a1].Resize(UBound(arr), UBound(arr, 2)).NumberFormatLocal = "0_ "
   
7.     [a1].Resize(UBound(arr), UBound(arr, 2)) = arr
   
8.     Application.ScreenUpdating = True
   
9. End Sub
   

复制代码

Chip_Kenny

當然是格式問題
Sub ZZ()
Range("A1").CurrentRegion.NumberFormat = 0
Range("A1").CurrentRegion = Range("A1").CurrentRegion.Value
End Sub

liulang0808

楼主的方法，不了解，没有这么使用过的
附件是一种转换方法，供参考

lsdongjh

1. Sub 文本转数值()
   
2.     Dim arr As Variant
   
3.     arr = Range("A1").CurrentRegion
   
4.     Range("A1").CurrentRegion.NumberFormatLocal = "0"
   
5.     Range("A1").CurrentRegion = arr
   
6. End Sub

复制代码

皮皮坦克

Chip_Kenny 发表于 2018-6-26 14:55
當然是格式問題
Sub ZZ()
Range("A1").CurrentRegion.NumberFormat = 0

再麻烦问一下，怎么看出来格式问题的，具体是什么问题呢？这个是从数据库导出来的，是不是有隐藏符号？等于0那句是啥意思呢？感谢解答：）

皮皮坦克

liulang0808 发表于 2018-6-26 14:55
楼主的方法，不了解，没有这么使用过的
附件是一种转换方法，供参考

谢谢老师！能再麻烦给简单解释一下不

Chip_Kenny

一般从数据库导出来的都是文本格式，妳可从格式中看到，0 字是通用格式。

liulang0808

皮皮坦克 发表于 2018-6-26 15:01
谢谢老师！能再麻烦给简单解释一下不

楼主自己可以录制一段修改单元格格式的宏，然后查看下代码就知道了

皮皮坦克

同样是文本转成数值，为什么表1可以正常运行，表2就不能转换？求解原因