![]() |
#2
hjxlj2016-05-19 00:38
|
2、b列各单元格从上到下,数据逐个分开,分开后的数字依次填充在同行c5开始的各个单元格(每个单元格一个数据),即b5分开后的数据填充到 c5 行各个单元格,即b6行分开后的数据填充到 c6 行各个单元格...
如:b5的数据坼分到:c5、d5、e5、f5
b6的数据坼分到:c6、d6、e6、f6
......
下面的程序是我用excel做的,就是想在VSFlexgrid或MSFlexGrid表格中实现这个目的:
Sub 按钮2_Click()
Range("c5:k750004").Clear 'Contents
Dim x As Long
arr = Range("b5:b" & Range("b1048576").End(xlUp).Row)
For x = LBound(arr) To UBound(arr)
brr = Split(Trim(arr(x, 1)), " ")
ReDim crr(UBound(brr))
For j = 0 To UBound(brr)
crr(j) = Val(brr(j))
Next
Range("e" & x + 4).Resize(1, UBound(crr) + 1) = crr
Next
End Sub
只有本站会员才能查看附件,请 登录
只有本站会员才能查看附件,请 登录
[此贴子已经被作者于2016-5-19 09:45编辑过]