字符串拆分

宁乂龙

请各位大佬看看，如何将字符串中的数字拆分到连续的单元格呢？谢谢！

sdytsxd991122

不知道是否要拆出8个来？只拆了6个

shiruiqiang

建议正则式速度快

my0745

split拆分到数组

宁乂龙

shiruiqiang 发表于 2023-6-6 15:40
建议正则式速度快

请问有代码吗

zpy2

=transpose(filterxml(webservice("http://e.anyoupin.cn/eh3/?preg_match_all~[\d.]+~" & c3),"/document/items[1]/items"))
数组公式

fzxba

1. Sub test0()
   
2.   Dim oDom As Object, oWin As Object, ar(), j As Long
   
3.   Set oDom = CreateObject("HtmlFile")
   
4.   Set oWin = oDom.parentWindow
   
5.   oWin.execScript "jsStr=" & Range("C3").Value & ";w=jsStr.length;"
   
6.   ReDim ar(oWin.w - 1)
   
7.   For j = 0 To UBound(ar)
   
8.     ar(j) = oWin.eval("jsStr[" & j & "]")
   
9.   Next
   
10.   Range("C7").Resize(, j).Value = ar
    
11.   Set oWin = Nothing
    
12.   Set oDom = Nothing
    
13.   Beep
    
14. End Sub

复制代码

ykcbf1100

附件供参考。。。

fzxba

ovxyz