[已解决]依次自动填充

ms967967

新建 Microsoft Excel 工作表.zip (3.81 KB, 下载次数: 6)

2012-11-11 14:06 上传

点击文件名下载附件
跟据总数和单位的数值，在黄色区域依次自动填充，填充的次数为单位的整数倍（约等于总数）要如何实现，请各位老师帮助，VBA或函数，谢谢支持。

单位	总数	拆分
12	45	12	12	12	12
8	120	8	8	8	8	8	8	8	8	8	8	8	8	8	8	8
30	110	30	30	30	30

最佳答案

月排行榜 / 总排行榜

爱疯

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)

2012-11-11 14:28 上传

点击文件名下载附件

跳转到最佳答案楼层

爱疯

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)

2012-11-11 14:28 上传

点击文件名下载附件

gylilan

用函数做的，看看是这样吗。 依次自动填充.zip (8.86 KB, 下载次数: 8)

2012-11-11 14:51 上传

点击文件名下载附件