VBA实现Excel每行分隔符数量可变的Text to Columns分列

• 你定义的tempArray(2) As Integer是长度为3的数组（下标0、1、2），但TextToColumns的FieldInfo参数要求每个子数组仅包含2个元素，结构不匹配是触发类型错误的直接原因。
• VBA中数组为引用类型，你在循环中反复修改同一个tempArray的元素再赋值给FieldValues，会导致FieldValues中所有元素最终都指向同一个数组，仅保留最后一次循环的赋值结果。
• 你给tempArray(1)赋值为2，和录制宏中要求的常规格式值1不符，即使修复类型错误也会导致分列后列格式不符合预期。

Dim FieldValues() As Variant
Dim x As Integer
' q9_max为提前计算的分列总列数
ReDim FieldValues(0 To q9_max - 1)

For x = 0 To q9_max - 1
    ' 每次循环生成独立的双元素数组，结构和录制宏完全一致
    FieldValues(x) = Array(x + 1, 1)
Next x

Columns("B:B").TextToColumns _
    Destination:=Range("qNine_2[[#Headers],[Q9_1]]"), _
    DataType:=xlDelimited, _
    TextQualifier:=xlDoubleQuote, _
    ConsecutiveDelimiter:=False, _
    Tab:=False, _
    Semicolon:=False, _
    Comma:=False, _
    Space:=False, _
    Other:=True, _
    OtherChar:="~", _
    FieldInfo:=FieldValues, _
    TrailingMinusNumbers:=True

如果你统计的q9_max是单条记录的最大波浪号数量，实际需要的分列列数应为q9_max + 1（1个分隔符对应2列内容），请提前调整参数避免最后一列内容被截断。

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