根据您要求更改下代码,是直接取得数后再判断。
Sub test()
Dim x As Integer, arr
[g:h] = ""
For x = 2 To 13
arr = Split(Range("A" & x), "/")
If UBound(arr) = 1 Then
Range("g" & x) = arr(0) & "/" & arr(1)
Else
Range("g" & x) = arr(0)
Range("h" & x) = Mid(Replace(Join(arr, "/"), arr(0), ""), 2)
End If
arr = ""
Next x
End Sub
因为它是个二维数组
Sub djk()
Dim arr, k%, i%
arr = Range("a2", Cells(Cells.Rows.Count, 1).End(xlUp))
For i = 1 To UBound(arr)
k = Len(arr(i, 1))
If k > 8 Then
Cells(i + 1, "e") = Left(arr(i, 1), 8)
Cells(i + 1, "f") = Right(arr(i, 1), Len(arr(i, 1)) - 9)
Else
Cells(i + 1, "e") = Left(arr(i, 1), 8)
End If
Next
End Sub