VBA使用TEXT函数批量转换Excel列格式时报运行时错误13如何解决

Application.WorksheetFunction.Text 仅支持单个值作为输入参数，示例2中直接传入多单元格组成的区域对象，函数无法识别该数组类参数，因此抛出 运行时错误13：类型不匹配。

你可以选择以下两种方案实现批量转换：

方案1：循环遍历单元格（兼容性好，适合小数据量） #

逐个读取A列单元格内容转换后写入H列，代码逻辑简单不容易出错：

Dim ws As Worksheet
Set ws = Worksheets("Sheet1")

' 建议用Long类型定义行号，避免超过Integer最大上限32767时报溢出错误
Dim lastRow As Long
lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

Dim i As Long
For i = 3 To lastRow
    ws.Range("H" & i) = Application.WorksheetFunction.Text(ws.Range("A" & i), "00000.0000")
Next i

方案2：Evaluate批量处理（效率更高，适合大数据量） #

直接调用Excel的公式计算引擎批量处理整个区域，不需要写循环，运行速度更快：

Dim ws As Worksheet
Set ws = Worksheets("Sheet1")

Dim lastRow As Long
lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

' 公式内的双引号需要用两个双引号转义
ws.Range("H3:H" & lastRow) = ws.Evaluate("TEXT(A3:A" & lastRow & ",""00000.0000"")")

补充说明 #

如果你只需要单元格显示为00000.0000格式，不需要存储为带前导零的文本内容，可以直接设置单元格格式，性能最优：

ws.Range("H3:H" & lastRow).NumberFormat = "00000.0000"
' 赋值原始数值
ws.Range("H3:H" & lastRow) = ws.Range("A3:A" & lastRow).Value

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