Excel中文本数字单元格批量转换（不影响公式单元格）

Excel经常会遇到以文本格式存储的数字，单元格坐上角显示一个绿色三角标志，如果需要转换为真正的数字，通常使用的方法是复制全部单元格，然后选择性粘贴，但是具有公式的单元格就被破坏了，公式转为了静态数值，也就再进行任何计算。

使用VBA可以快速解决这个问题，示例代码如下。

Sub demo()
    Set rng_const = ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants, 23)
    If Not rng_const Is Nothing Then
        For Each rng_area In rng_const.Areas
            With rng_area
                .NumberFormatLocal = "G/通用格式"
                .Value = .Value
            End With
        Next
    End If
End Sub
1
2
3
4
5
6
7
8
9
10
11

【代码解析】
第2行代码中UsedRange代表工作表中已经使用的单元格区域，SpecialCells(xlCellTypeConstants, 23)用来定位常量单元格，这样可以避免影响公式单元格。

SpecialCells使用方法，请参见 微软文档。

https://learn.microsoft.com/zh-cn/office/vba/api/excel.range.specialcells?WT.mc_id=M365-MVP-33461

第3行代码用于判断是否定位到常量单元格区域。
第4~9行代码循环处理rng_cost中的区域，由于SpecialCells的返回结果可能是多个非连续单元格区域（Area）组成的Range对象，因此需要使用第4行代码遍历Areas集合。
第6行代码设置单元格格式为他“通用”。
第7行代码更新单元格的值。