求vb将VSFlexgrid或MSFlexGrid表格中b列各单元格中的数据坼分到每一个单元格中的vb程序
1、单元格b5开始的b列各单元格中填有不同数字, 每二个数字间空一格,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
1.rar
(37.36 KB)
[此贴子已经被作者于2016-5-19 09:45编辑过]