CSV导入Excel的yyyy.mm.dd日期无法用VBA转为dd/mm/yyyy格式求助

问题分析 #

从CSV导出到Excel的日期显示为yyyy.mm.dd，尝试用VBA设置NumberFormat = "dd/mm/yyyy"无效，核心原因是原代码中DateValue(cell.Value)无法识别带点（.）的日期文本——Excel默认的日期分隔符是斜杠（/）或横杠（-），导致文本无法转换为日期型数据，后续的格式设置自然不生效。

解决方案 #

方案1：批量处理（高效首选） #

使用TextToColumns或批量替换分隔符的方式处理整列，比循环单个单元格效率高得多：

Sub FormatDates_Efficient()
    Dim targetCol As Range
    Set targetCol = Sheet1.Columns(18) ' 目标列为第18列
    
    ' 将日期文本中的点替换为斜杠，让Excel识别为日期格式
    targetCol.Replace What:=".", Replacement:="/", LookAt:=xlPart
    
    ' 批量设置目标日期格式
    targetCol.NumberFormat = "dd/mm/yyyy"
End Sub

方案2：逐单元格处理（兼容非日期文本） #

如果目标列中混有非日期文本，可循环验证并处理单个单元格：

Sub FormatDates_CellByCell()
    Dim rng As Range, cell As Range
    ' 仅处理有数据的单元格，避免遍历整列空单元格
    Set rng = Sheet1.Columns(18).SpecialCells(xlCellTypeConstants)
    
    For Each cell In rng
        Dim dateText As String
        dateText = Replace(cell.Value, ".", "/")
        ' 验证转换有效性，跳过非日期内容
        If IsDate(dateText) Then
            cell.Value = CDate(dateText)
            cell.NumberFormat = "dd/mm/yyyy"
        End If
    Next cell
End Sub

关键注意事项 #

• 必须先将日期文本中的.替换为Excel可识别的日期分隔符（/或-），否则CDate或DateValue无法完成转换。
• 使用SpecialCells(xlCellTypeConstants)仅处理有数据的单元格，能大幅提升代码运行效率，避免无意义的空单元格遍历。

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