文本转换为数值

x7893930

vba用val 转换不了 还有没有其他方法，请教大神指点


补充内容 (2024-3-4 14:53):
已解决

shiruiqiang

Format(单元格, 0#)

lizhipei78

gwjkkkkk

A列值是通过文本数组写入，故虽是常规格式，但显示是文本格式，

通过读取数据后将A列值转换成变体数组，再回写即可。。。

明天会更好zj

哈哈

ykcbf1100

自定义函数，常规转文本或文本转常规

ykcbf1100

参与一下。。。

1. Sub 一键文本数值转换(x%, s$)
   
2.     '//参数说明:x = 1,转常规,x=2转文本; s指的是列符,如:s="A"
   
3.     Select Case x
   
4.         Case Is = 1
   
5.             Range(s & ":" & s).TextToColumns Destination:=Cells(1, s), DataType:=xlFixedWidth, FieldInfo:=Array(0, x)   '//转常规
   
6.         Case Is = 2
   
7.             Range(s & ":" & s).TextToColumns Destination:=Cells(1, s), DataType:=xlFixedWidth, FieldInfo:=Array(0, x)    '//转文本
   
8.     End Select
   
9. End Sub
   
10. 
    
11. Sub 文本转常规()
    
12.     Call 一键文本数值转换(1, "A")
    
13. End Sub
    
14. 
    
15. Sub 常规转文本()
    
16.     Call 一键文本数值转换(2, "A")
    
17. End Sub
    
18. 
    

复制代码

x7893930

shiruiqiang 发表于 2024-2-16 19:15
Format(单元格, 0#)

感谢，学习了，有用

x7893930

ykcbf1100 发表于 2024-2-17 17:11
参与一下。。。

果然是大神，感谢