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

taller_2000

已于 2022-12-07 10:49:22 修改

阅读量796

点赞数 2

分类专栏：数据清洗单元格 VBA 文章标签：数据清洗文本数字文本数字转换定位常量单元格公式

于 2022-12-02 04:50:14 首次发布

本文链接：https://blog.csdn.net/taller_2000/article/details/128141559

版权

VBA 同时被 3 个专栏收录

284 篇文章 87 订阅

订阅专栏

数据清洗

81 篇文章 6 订阅

订阅专栏

单元格

32 篇文章 1 订阅

订阅专栏

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

【代码解析】
第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行代码更新单元格的值。