用VBA对数据进行拆分

his803

grf1973 发表于 2024-5-20 09:22
..............

谢谢老师无私帮助

his803

grf1973 发表于 2024-5-20 09:50
用JSA做了一下，练习练习。

真厉害！学习了

一招秒杀

cnmlgb9998 发表于 2024-5-20 09:15
PQ解决方案，香不香？？？？？？？

SQL 用了个第3方组件，也仅需1句3行， 也很香哦

更新为楼主的数据。

cnmlgb9998

一招秒杀 发表于 2024-5-20 13:18
SQL 用了个第3方组件，也仅需1句3行， 也很香哦

你这结果 都不对啊！

一招秒杀

cnmlgb9998 发表于 2024-5-20 13:22
你这结果 都不对啊！

是原始数据问题，你的数据 和 举例的数据 不同而已。已经更新为和你一样的示例数据

longwin

参与一下：
Sub test()
    s = ActiveSheet.[A1]
    s1 = Split(s, ".")
    For i = 0 To UBound(s1)
        If Len(s1(i)) > 1 Then
            s1(i) = Replace(s1(i), Left(s1(i), 1), Left(s1(i), 1) & ",")
        End If
    Next
    s2 = Split(Join(s1, ","), ",")
    ActiveSheet.[A10].Resize(1, UBound(s2) + 1) = s2
End Sub

zpy2

一招秒杀 发表于 2024-5-20 13:18
SQL 用了个第3方组件，也仅需1句3行， 也很香哦

更新为楼主的数据。

啥第三方组件？

zpy2

//select *,regreplace('\.|(?<=\D)(?=\d)','-',f01) from 正则表达式拆分单元格 limit 20;
cli_split_data~正则表达式拆分单元格~\.|(?<=\D)(?=\d)~f01;
cli_no_header;

select group_concat(f01,'</td><td>') from 正则表达式拆分单元格split group by (rowid-1)/10;

一招秒杀

zpy2 发表于 2024-5-20 19:58
啥第三方组件？

SQL Eval Function
A SQL Eval function to execute C# directly in T-SQL

wang-way

JSA练手

1. function splitStr(){
   
2.         var ar=Range('a1').Value2.match(/\d+|[A-Z]+/g);
   
3.         br=[ar.slice(0,ar.length/2),ar.slice(ar.length/2)];
   
4.         Range('A15').Resize(br.length,br[0].length).Value2=br;
   
5. }

复制代码