高级?
Private Sub Command1_Click()
Const a = "210-214、245-249、260-269"
Dim x, y() As Integer, i As Integer
x = Split(a, "、")
ReDim y(UBound(x) * 2 + 1)
For i = 0 To UBound(x) * 2 + 1
y(i) = CInt(Split(x(i \ 2), "-")(i Mod 2))
Debug.Print y(i)
Next
End Sub