topics

全部话题 - 话题: lcellcount
(共0页)
w****g
发帖数: 597
1
你可以写个EXCEL VBA代码小程序,先split string,再把数据导入.见vba例子
设 A1 = 11 12 13 14 15
Sub SplitRowToColumn()
Dim vString As Variant
Dim lCount As Long
Dim lCellCount As Long
lCellCount = 3
vString = Split(Cells(1, 1).Value, " ") // split cell A1
For lCount = LBound(vSecond) To UBound(vSecond)
lCellCount = lCellCount + 1
ActiveSheet.Cells(lCellCount, 1).Value = vString(lCount)
Next
End Sub
results are :
11 12 13 14 15
11
12
13
14
15
(共0页)