[已解决]《以解决》按 空格 分列！！！也可以按任何符号分列！！！

neicezhanghao

如题 如图 对了 数据 多少 不固定。
A34的内容！不是固定的 有多的时候又少的时候！！！详情附件 图片

最佳答案

月排行榜 / 总排行榜

1970-1-1 08:00

跳转到最佳答案楼层

橘子红

1. Sub x()
   
2. Dim a, st As String
   
3. st = InputBox("输入需要分割的字符")
   
4. a = Split([a34], st)
   
5. [a34].Resize(, UBound(a)) = Application.Rept(a, 1)
   
6. End Sub

复制代码