如何使用VBA TextToColumns转文本为日期 现有报错代码如何修正

问题背景 #

• 每日获取的数据集日期列无法被Excel自动识别为日期格式，仅被判定为普通文本，需要通过VBA宏批量转换
• 手动使用Excel分列功能选择YMD日期格式可正常完成转换，但写入VBA代码后运行报错
• 最新同步：调整后的代码已可正常运行，此前运行异常是.CurrentRegion用法错误导致

相关参考 #

文件界面截图：

原错误代码：

Sub Test()

Dim rg As Range
Set rg = Range("B2:B4")
rg.TextToColumns Destination:=Range("B2:B5"), ConsecutiveDelimiter:=True, DataType:=xlDelimited, Space:=True, FieldInfo:=Array(Array(1, 5))

End Sub

问题原因 #

1. 处理范围与输出范围不匹配：定义的处理范围是B2:B4，输出目标却指定为B2:B5，范围不一致触发运行错误，TextToColumns的Destination参数仅需指定起始单元格即可，无需填写完整输出范围
2. 参数冗余：日期文本无需按空格拆分，设置Space:=True和ConsecutiveDelimiter:=True属于冗余参数，可能干扰日期识别逻辑
3. 范围适配性差：硬编码的固定范围无法适配每日数据集行数变化的场景

修复后代码 #

Sub ConvertTextToDate()
    Dim rg As Range
    ' 动态获取B列从B2开始的所有有效数据范围
    Set rg = Range("B2:B" & Cells(Rows.Count, "B").End(xlUp).Row)
    ' 执行分列转换，指定YMD日期格式
    rg.TextToColumns Destination:=Range("B2"), DataType:=xlDelimited, _
        FieldInfo:=Array(1, xlYMDFormat)
    ' 统一设置单元格为标准日期格式
    rg.NumberFormat = "yyyy-mm-dd"
End Sub

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