- Sub ek_sky()
- Dim ar1 As Variant, ar2 As Variant, ar3() As Variant
- Dim i As Integer, j As Integer, k As Integer
- ar1 = Range("D1:D" & Cells(Rows.Count, "D").End(xlUp).Row)
- For i = 1 To UBound(ar1)
- ar2 = Split(StrConv(Replace(ar1(i, 1), " ", ","), vbNarrow), ",")
- For j = 0 To UBound(ar2)
- k = k + 1
- ReDim Preserve ar3(1 To 1, 1 To k)
- ar3(1, k) = ar2(j)
- Next j
- Next i
- [a:a].ClearContents
- Range("A1").Resize(UBound(ar3, 2)) = Application.Transpose(ar3)
- End Sub
复制代码 |