求快捷将数字型文本转成数值的方法？十几个表的工作簿

4652525446

能一键将整个工作簿转了最好，实在不行，一个表一键也可以，VBA的也可以

全无敌666

是这样吗？

全无敌666

更正，应该是这样

leimingsen

你这个表格的内容不一致，提供一个思路！
Sub 转数值()
    Dim sh As Worksheet
    Dim rw&, col&, i&, j&
    '遍历相同格式的工作表
    For Each sh In ThisWorkbook.Sheets
    '获得工作表的最大行数
        rw = sh.Range("d" & Rows.Count).End(xlUp).Row
    '获得工作表的最大列数
        col = sh.UsedRange.Columns.Count
        For i = 3 To rw
            For j = 4 To col
    '转化为数值
                sh.Cells(i, j).Value = Val(sh.Cells(i, j))
            Next j
        Next i
    Next
End Sub

4652525446

全无敌666 发表于 2022-1-17 16:42
更正，应该是这样

太厉害了！谢谢

4652525446

全无敌666 发表于 2022-1-17 16:42
更正，应该是这样

你好，原数据表格实际上是每个单元格都有内容的，你的代码转换之后，虽然看起来合并的单元格内容都在，但是只有合并的第一个表格里面有内容，其余的都没有了，我想要转换之后每个表格都有内容的，如图，可以仍是合并之后的样式，但是必须每个合并单元格的组成单元格都是有相同内容的，请再帮忙调一下，谢谢

准提部林

1) 每個表結構不一
2) 文字型數字, 有換行問題, 轉換成數值後, 會顯示不完整, 甚至變成科學記號
3) 有合併的看來都是中文或英數混合, 可不須處理
目前只想到直接用替換方式去轉換成數值, 但可能有非預期的錯誤, 自行測看看,
表格多, 執行須花些時間:
Sub TEST_A1()
Dim S As Worksheet, i&
Application.ScreenUpdating = False
For Each S In Sheets
    For i = 0 To 9
        S.UsedRange.Replace i, i, Lookat:=xlPart
    Next i
Next
End Sub