数组中的拆分字符串不在单元格范围vba中

我刚刚开始创建宏，我的同事创建了一个宏，我们在工作中使用了它。现在她正在和我们一起工作，我需要做一些改变

是否可以将字符串中的一部分从其他区域移到其他单元格？是否有任何代码可用于此？我想我需要将G列中的数据进行拆分，以获得H列和I列的正确结果。如果有任何好的帮助，请提前感谢您。 例如：

G列

SD230X200X45/20

SD5000X2000X40/25

H列

20像这样做

Sub test()
    Dim vDB, vR()
    Dim i As Long, n As Long
    Dim s As String
    vDB = Range("g1", Range("g" & Rows.Count).End(xlUp))
    n = UBound(vDB, 1)
    ReDim vR(1 To n, 1 To 2)

    For i = 1 To n
        s = vDB(i, 1)
        vR(i, 1) = Split(s, "/")(1)
        vR(i, 2) = Split(s, "X")(1)
    Next i
    Range("h1").Resize(n, 2) = vR

End Sub

---

嗨，李迪，我先测试一下这个。谢谢。嗨，李，你的代码出错了。但我会关闭这个。我已经找到解决办法了。谢谢，非常感谢。@sayjon答案不仅是为了您的利益，也是为了将来有类似问题的其他用户。因此，为了让这些未来的用户能够更正答案，如果您提供的信息比“您的代码出错”更多，这将有所帮助。错误消息是什么？发生在哪一行？Hi@YowE3K错误下标超出范围。这是关于代码vR（i，1）=拆分（s），“/”（1）的。感谢you@sayjon（和未来的用户）-如果你有一个标题，你需要将“G1”和“H1”更改为“G2”和“H2”（或数据开始的任何行）由同一作者提出的类似问题：