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

准提部林

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

1) arr1 尾部已有逗號, 須先檢查再決定加逗號與 arr2連接
2) 數組redim及底下的不一致

約略修下//
arr = arr1 & IIf(Right(arr1, 1) = ",", "", ",") & arr2
S = Split(arr, ",")
ReDim Brr(1 To UBound(S) / 2, 1 To 2)
For Each ar In S
    i = 1 - i
    n = n + i
    Brr(n, 2 - i) = Val(ar)
Next
[a1].Resize(n, 2) = Brr

准提部林

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

代碼審核中, 看圖//

fzxba

    ar = Split(arr1 & "," & arr2, ",")
    ReDim br(Int(UBound(ar) / 2), 1)
    For i = 0 To UBound(ar)
      br(Int(i / 2), i Mod 2) = ar(i)
    Next
    Range("A1").Resize(UBound(br) + 1, UBound(br, 2) + 1) = br

dongdonggege

pc087 发表于 2023-1-23 14:16
先理解代码再套用，如果不熟悉，5楼和4楼的代码各自试一遍，你这样混着，还套错了代码

谢谢，,现在能精确绘制地图。参考文章：https://club.excelhome.net/threa ... tml?_dsign=6710ed12
附件：绘制重庆市地图。

dongdonggege

准提部林 发表于 2023-1-23 14:38
代碼審核中, 看圖//

谢谢回复，现在问题已经解决，请看12楼附件，精准绘制重庆市地图。。