"转换为数字"对应的代码

dark_knight

如题, 求这个对应的代码, 我试过这个用录制的方法是什么都录不到的...

dark_knight

我试过直接*1, 不是所有情况都可以. 有时候是不行的

汉唐

sub test（）
for i=1 to 1000
cells(i,1)=val(cells(i,1).value)
next

3190496160

基础操作，分列完全可以转换

taller

试试易用宝，免费的
https://yyb.excelhome.net/features/t007/

tmplinshi

出现这个问题的原因，是因为单元格格式首先被设置成了文本，然后再输入数据的时候数据就被储存为文本类型，之后不管你怎么设置单元格格式都不会改变这个数据的类型，但是，如果你重新编辑一下数据，Excel 会根据单元格的格式重新储存对应的数据类型。

手工操作的方式为：

• 设置单元格格式为常规
• 重新编辑数据（双击单元格或按 F2 进入编辑模式，回车确认修改）
  

代码也按照手工的方式：

1. Sub 转换为数字()
   
2. 
   
3.     With Selection
   
4.         .NumberFormatLocal = ""  '设置单元格格式为‘常规’
   
5.         .Value = .Value          '重新设置单元格的值
   
6.     End With
   
7.    
   
8. End Sub

复制代码

gwjkkkkk

Sub TEST()
    ar = [A1].CurrentRegion
    Columns(1).Clear
    [A1].Resize(UBound(ar)) = ar
End Sub

dark_knight

汉唐 发表于 2023-1-9 14:02
sub test（）
for i=1 to 1000
cells(i,1)=val(cells(i,1).value)

这个办法好, 学习了