如何用Excel VBA将指定列的日期格式值转换为同列存储的纯数字

原代码仅能处理单个单元格的核心问题是：直接将整列Range对象赋值给String类型变量时，VBA默认只会读取该区域左上角第一个单元格的内容，无法批量处理整列数据。

推荐使用数组批量处理方案，性能远高于逐单元格循环，代码如下：

Sub 日期转纯数字()
    Dim lastRow As Long
    Dim dataArr As Variant
    Dim i As Long
    
    ' 获取H列最后一行有数据的行号，避免处理空白单元格
    lastRow = Cells(Rows.Count, "H").End(xlUp).Row
    ' 先将目标列设置为文本格式，避免写回时被自动识别为日期
    Range("H1:H" & lastRow).NumberFormat = "@"
    ' 将整列数据读取到数组中批量处理
    dataArr = Range("H1:H" & lastRow).Value
    
    ' 遍历数组替换所有斜杠
    For i = 1 To UBound(dataArr)
        dataArr(i, 1) = Replace(CStr(dataArr(i, 1)), "/", "")
    Next i
    
    ' 处理完成后一次性写回原列
    Range("H1:H" & lastRow).Value = dataArr
End Sub

注意事项 #

• 若H列第一行是表头不需要转换，将循环起始值i = 1修改为i = 2即可
• 代码已提前设置单元格为文本格式，写入后不会被Excel自动转回日期格式，完全保留纯数字形态

内容的提问来源于stack exchange，提问作者Ouskiffprog