使用Format()函数格式化日期时Excel出现Overflow错误

你遇到的Overflow错误核心出在CDbl(value)转换步骤，以下是针对性的排查和解决方法：

1. 定位错误源头 #

既然缩到10行仍出错，直接锁定这10行的目标单元格排查：

• 在调用函数的代码中加入调试逻辑，输出每个单元格的关键信息：

  Dim cell As Range
  For Each cell In 你的目标列范围 ' 示例：Range("B2:B11")
      Debug.Print "地址：" & cell.Address & "，内容：" & cell.Value & "，类型：" & TypeName(cell.Value)
      Debug.Print "IsNumeric判定：" & IsNumeric(cell.Value)
      On Error Resume Next
      Debug.Print "CDbl转换结果：" & CDbl(cell.Value)
      If Err.Number <> 0 Then
          Debug.Print "转换错误：" & Err.Description
          Err.Clear
      End If
      On Error GoTo 0
  Next cell
  

• 打开VBA编辑器的「立即窗口」（Ctrl+G）查看输出，找到触发转换错误的单元格，确认其内容是否为超大数值、带不可见字符的文本数字。

2. 优化函数逻辑，避免溢出 #

方案一：校验有效日期范围 #

Excel的有效日期序列号范围是1（1900/1/1）到2958465（9999/12/31），超出该范围的数值无需转换为日期，直接返回原内容：

Function FormatAsDate(value As Variant, isDateColumn As Boolean) As String
    If isDateColumn Then
        If IsDate(value) Then
            FormatAsDate = Format(value, "mm/dd/yyyy")
        ElseIf IsNumeric(value) Then
            Dim serial As Double
            serial = CDbl(value)
            ' 校验是否在Excel有效日期范围内
            If serial >= 1 And serial <= 2958465 Then
                FormatAsDate = Format(serial, "mm/dd/yyyy")
            Else
                FormatAsDate = CStr(value)
            End If
        Else
            FormatAsDate = CStr(value)
        End If
    Else
        FormatAsDate = CStr(value)
    End If
End Function

方案二：添加错误捕获 #

直接捕获转换时的溢出错误，避免程序崩溃：

Function FormatAsDate(value As Variant, isDateColumn As Boolean) As String
    If isDateColumn And IsNumeric(value) Then
        On Error Resume Next
        Dim dateVal As Double
        dateVal = CDbl(value)
        ' 转换成功且属于有效日期范围才格式化
        If Err.Number = 0 And dateVal >= 1 And dateVal <= 2958465 Then
            FormatAsDate = Format(dateVal, "mm/dd/yyyy")
        Else
            FormatAsDate = CStr(value)
        End If
        Err.Clear
        On Error GoTo 0
    Else
        FormatAsDate = CStr(value)
    End If
End Function

3. 清理单元格异常内容 #

若排查到单元格包含不可见字符（如空格、非打印字符），在函数中添加清理逻辑：

value = Trim(Replace(value, Chr(160), "")) ' 移除普通空格和非断空格

4. 检查文件格式问题 #

• 选中目标列，设置为「数值」格式后重新运行程序，避免文本格式的超大数字被误判为可转换数值。
• 检查是否有单元格使用数组公式、外部链接，导致value不是单纯的数值或文本。

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