Excel VBA TextToColumns按逗号分列忽略空列问题求助

问题根源是TextToColumns方法的ConsecutiveDelimiter参数配置错误，且同时开启了多余的分隔符选项，导致连续逗号被合并为单个分隔符，空列被忽略。

修正后的代码 #

Sub TextToCol3()
    Range("A1:A135").TextToColumns _
        Destination:=Range("A1"), _
        DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, ' 不合并连续分隔符，空列会正常保留
        Tab:=False,
        Semicolon:=False,
        Comma:=True, ' 仅启用逗号作为唯一分隔符
        Space:=False,
        Other:=False
End Sub

参数说明 #

• ConsecutiveDelimiter设为False是核心配置：该参数为True时会将多个连续的分隔符识别为1个，自动跳过空值；设为False后每个逗号都会作为独立的拆分标记，连续逗号之间的空列会正常生成。
• 仅保留Comma参数为True，关闭其余分隔符选项，避免其他符号误触发拆分逻辑。
• 如果需要调整分列后内容的起始位置，修改Destination参数的目标单元格即可。

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