拆分数组中的字符串不在单元格区域vba中

Question

我只是创建宏的新手，我有一个我的同事创建的宏，我们在工作中使用了它。现在她正在与我们合作，我需要做一些改变。

是否有可能从其他范围到其他单元格的字符串中获取字符串的一部分？有没有可用的代码？我想我需要从列G中拆分我需要的数据，以便为H列和I列提供正确的结果。如果有任何好的帮助，请提前感谢。例：

G栏

SD230X200X45 / 20

SD5000X2000X40 / 25

列H

20 < - （字符串来自G）

25 < - （字符串来自G）

第一栏

200 < - （字符串来自G）

2000 < - （字符串来自G）

Answer 1

这样做。

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