Excel自动为6位日期数字加斜杠并保留前导零，解决公式引用格式问题

一、解决自定义格式的前导零丢失问题 #

如果仅需调整显示样式，无需修改单元格实际存储值，将自定义格式替换为：
00"/"00"/"00

• 区别于##"/"##"/"##，00会强制保留两位数字，前导零不会被忽略，输入070123后将直接显示为07/01/23。

二、彻底解决公式引用显示问题（转为真实日期值） #

上述方法仅改变显示，单元格实际仍为数字（如070123存储为70123），公式引用时会调用原始数字。要让单元格存储真实日期值，推荐两种实用方法：

方法1：公式转换 #

在目标单元格（如B1）输入以下公式，将A1的6位数字转为真实日期：
=DATE(RIGHT(A1,2),LEFT(A1,2),MID(A1,3,2))

• 逻辑：提取最后两位为年份、前两位为月份、中间两位为日期，通过DATE函数组合成标准日期。
  随后给B1设置自定义格式mm/dd/yy，即可显示为07/01/23。此时用公式引用时，需配合TEXT函数格式化：
  ="Sent on " & TEXT(B1,"mm/dd/yy")
  输出结果为：Sent on 07/01/23

方法2：自动转换输入（VBA） #

如果希望输入6位数字时自动转为日期值，无需手动操作：

1. 右键目标工作表标签，选择「查看代码」
2. 粘贴以下代码并保存：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cell As Range
    For Each cell In Target
        If cell.Value <> "" And IsNumeric(cell.Value) And Len(cell.Value) = 6 Then
            Application.EnableEvents = False
            cell.Value = DateSerial(Right(cell.Value, 2), Left(cell.Value, 2), Mid(cell.Value, 3, 2))
            cell.NumberFormat = "mm/dd/yy"
            Application.EnableEvents = True
        End If
    Next cell
End Sub

此后输入6位数字，单元格会自动转为真实日期并显示为07/01/23，公式引用时直接结合TEXT函数即可得到带格式的结果。

内容的提问来源于stack exchange，提问作者Cap'n Crunch