分割字符串，两个一组，变成数组

dongdonggege

各位老师，新年好。

我有个字符串，我想把字符串两个一组，来分割字符串，变成数组。
比如，arr1 = "596, 908, 601, 909, 610, 905, 619, 910, 628, 905"
然后得到，arr(1,1)=596,arr(1,2)=908,arr(2,1)=601,arr(2,2)=909,arr(3,1)=610,arr(3,2)=905.
我是ppt的，Excel函数就别用了，谢谢。

ahnyt

VBA 可以吗

dongdonggege

ahnyt 发表于 2023-1-23 10:52
VBA 可以吗

就是，谢谢。

pc087

1.     split_arr = Split(arr, ",")
   
2.     ReDim brr(1 To UBound(split_arr) / 2, 1 To 2)
   
3.     For Each ar In split_arr
   
4.         If Trim(ar) <> "" Then
   
5.             i = i + 1: IsOdd = i Mod 2 = 1
   
6.             If IsOdd Then n = n + 1
   
7.             brr(n, IIf(IsOdd, 1, 2)) = Trim(ar)
   
8.         End If
   
9.     Next
   
10.     [a1].Resize(UBound(brr), UBound(brr, 2)) = brr

复制代码

汉唐

试下这个
Sub test()
arr1 = "596, 908, 601, 909, 610, 905, 619, 910, 628, 905"
s = Split(arr1, ",")
ReDim arr(1 To UBound(s) + 1, 1 To 2)
For i = 0 To UBound(s) - 1 Step 2
n = n + 1
arr(n, 1) = Replace(s(i), " ", "")
arr(n, 2) = Replace(s(i + 1), " ", "")
Next
Cells(1, 1).Resize(n, 2) = arr
End Sub

dongdonggege

pc087 发表于 2023-1-23 11:30

谢谢老师回复，很满意。

dongdonggege

汉唐 发表于 2023-1-23 12:21
试下这个
Sub test()
arr1 = "596, 908, 601, 909, 610, 905, 619, 910, 628, 905"

谢谢老师，新年好，效果很好。但是到案例中，就是有些问题，辛苦。

dongdonggege

pc087 发表于 2023-1-23 11:30

文件连起来，还是有些问题。

dongdonggege

pc087 发表于 2023-1-23 11:30

还是有问题，无效redim。

pc087

dongdonggege 发表于 2023-1-23 14:02
还是有问题，无效redim。

先理解代码再套用，如果不熟悉，5楼和4楼的代码各自试一遍，你这样混着，还套错了代码


代码见附件。