|
发表于 2012-11-11 14:29
|
显示全部楼层
本楼为最佳答案
Sub test()
Dim A, B, i, j
Dim x '临时值
Dim y '最多列数的数量
With Sheets("sheet1")
A = Range("b2:c" & .Range("b2").End(xlDown).Row)
For i = 1 To UBound(A)
x = A(i, 2) / A(i, 1)
If x <> Int(x) Then x = Int(x) + 1
A(i, 2) = x
If x > y Then y = x
Next i
ReDim B(1 To UBound(A), 1 To y + 1)
For i = 1 To UBound(B)
For j = 1 To UBound(B, 2)
If j < A(i, 2) + 1 Then
B(i, j) = A(i, 1)
End If
Next j
Next i
.Range("d2:iv65536").ClearContents '可能需改
.Range("d2").Resize(UBound(B), UBound(B, 2)) = B
End With
End Sub
新建 Microsoft Excel 工作表2.rar
(10.21 KB, 下载次数: 11)
|
|