麻烦大神们我这段代码用GPT写的，不能正常分列是哪里错了

积木1688

这是对GPT写的要求。写一段wps的vba代码，并对每一行代码用中文说明。要求粘贴剪切板数据到d15，用分列命令将提取的数据录入d15:ay15，数据分隔符有、,. -/，完成后光标回到b15


Sub 分列命令提取数据()
    Range("D15").Select '选中D15单元格
    Selection.TextToColumns Destination:=Range("D15:AY15"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, _
        Tab:=False, Semicolon:=False, Comma:=True, Space:=False, _
        Other:=True, OtherChar:="-/，、. ", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), _
        Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _
        Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), _
        Array(13, 1), Array(14, 1), Array(15, 1), Array(16, 1), _
        Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1), _
        Array(21, 1), Array(22, 1)) '使用分列命令提取数据，并设置数据分隔符为、,. -/，写入D15:AY15单元格
    Range("B15").Select '选中B15单元格
End Sub  '结束子程序，即代码段

fanyoulin

开个玩笑：你就接着问GPT就好了。

积木1688

让大神们见笑了，这对小白来说确实一无所知

ykcbf1100

GPT写的代码并不靠谱，代码冗余，还不好懂。
分列其实不用那么复杂，不用VBA也行。