将当前工作表从第I列到第AK列中文本格式单元格转换成数字格式

wwdfefgg

如何将当前工作表从第I列到第AK列中文本格式单元格转换成数字格式，有公式的单元格不要转换，运行速度一定要快


test.rar (511.59 KB, 下载次数: 6)

2024-11-11 10:01 上传

点击文件名下载附件

xlj310

.value=.formula 的事。

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.11.11
   
2.     Application.ScreenUpdating = False
   
3.     With Sheets("计算表")
   
4.         r = .Cells(Rows.Count, "ak").End(3).Row
   
5.         For j = 36 To 9 Step -1
   
6.             If .Cells(4, j).Interior.ColorIndex <> xlNone Then
   
7.                 Set Rng = .Cells(4, j).Resize(r - 3)
   
8.                 Rng.TextToColumns Destination:=Cells(4, j), DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, FieldInfo:=Array(1, 1)
   
9.             End If
   
10.         Next
    
11.     End With
    
12.     Application.ScreenUpdating = True
    
13.     MsgBox "OK！"
    
14. End Sub
    

复制代码

ykcbf1100

xlj310 发表于 2024-11-11 10:33
.value=.formula 的事。

不错的方法，学了一手！
干脆用2楼的方法再写一个。

ykcbf1100

现学一个吧。

1. Sub ykcbf()   '//2024.11.11
   
2.     Application.ScreenUpdating = False
   
3.     With Sheets("计算表")
   
4.         r = .Cells(Rows.Count, "ak").End(3).Row
   
5.         Set Rng = .Range("i4:ak" & r)
   
6.         Rng.Value = Rng.Formula
   
7.     End With
   
8.     Application.ScreenUpdating = True
   
9.     MsgBox "OK！"
   
10. End Sub
    

复制代码

usedrange

看看这样行不行。。。