如何用代码计算各成本要素的占比，求教各大师！

chengshanming

如何截图与附件！请各位路过的大师帮帮忙，以下是自己录制的代码！


Sub 备份()
    N = Range("B1:B" & Range("B65536").End(3).Row)
    For i = 1 To UBound(N)
        Cells(i, 20) = Cells(i, 18)
        If Cells(i, 1) <> 0 Then Cells(i, 20) = Cells(i - 1, 20)
        Cells(i, 21) = Cells(i, 18)
        If Cells(i, 1) <> 0 Then Cells(i, 21) = Cells(i - 1, 21)

        Cells(i, 22) = Cells(i, 16)
        If Cells(i, 1) <> 0 Then Cells(i, 22) = Cells(i - 1, 22)

        Cells(i, 23) = Cells(i, 18)
        If Cells(i, 1) <> 0 Then Cells(i, 23) = Cells(i - 1, 23)

        Cells(i, 24) = Cells(i, 18)
        If Cells(i, 1) <> 0 Then Cells(i, 24) = Cells(i - 1, 24)
    Next
    N = Range("B1:B" & Range("B65536").End(3).Row)
    For i = 1 To UBound(N)
        Cells(i, 20) = Cells(i, 13) / Cells(i, 20)
        Cells(i, 21) = Cells(i, 14) / Cells(i, 21)
        If Cells(i, 21) = 0 Then Cells(i, 21) = Empty
        Cells(i, 22) = Cells(i, 15) / Cells(i, 22)
        If Cells(i, 22) = 0 Then Cells(i, 22) = Empty
        Cells(i, 23) = Cells(i, 16) / Cells(i, 23)
        If Cells(i, 23) = 0 Then Cells(i, 23) = Empty
        Cells(i, 24) = Cells(i, 17) / Cells(i, 24)
        If Cells(i, 24) = 0 Then Cells(i, 24) = Empty
    Next
    For e = 0 To UBound(ttitle)
        ttitle = Split("材料占比, 人工占比, 制费占比, 辅材占比, 外协占比")
        Cells(1, 20 + e) = ttitle(e)
    Next
End Sub

lsc900707

你不是录制了宏吗，还要怎么改？没有得出正确的结果？

chengshanming

lsc900707 发表于 2016-8-22 20:55
你不是录制了宏吗，还要怎么改？没有得出正确的结果？

这个宏有问题，用不了，我贴上来，大师可能一看就知道我需要什么样的结果，另外这个有点繁琐，大师能另外写个简单的代码么？

lsc900707

chengshanming 发表于 2016-8-22 20:57
这个宏有问题，用不了，我贴上来，大师可能一看就知道我需要什么样的结果，另外这个有点繁琐，大师能另外 ...

等有时间再看看，但不能保证给你正确答案。

huang1314wei

一点描述都没有，主要是不知道你要计算什么，怎么计算？

lsc900707

huang1314wei 发表于 2016-8-22 21:45
一点描述都没有，主要是不知道你要计算什么，怎么计算？

各分项成本占总成本的比例。
可是他的主要材料只是单个价钱，没有乘上用量，做的不规范。

半百

如果你的代码中的Cells(i, 22) = Cells(i, 16)这一句里的16也应该是18的话，请试试下面的代码，基本与你的代码的结果相同。
Sub 备份2()
Dim n, i, j, arr, brr, s
    n = Range("B65536").End(3).Row
    arr = Range("A3:R" & n)
    ReDim brr(1 To n - 2, 1 To 5)
    For i = 1 To n - 2
        For j = 13 To 17
            If arr(i, 1) = 0 Then s = arr(i, 18)
            If arr(i, j) <> 0 Then brr(i, j - 12) = arr(i, j) / s
        Next
    Next
    Cells(3, 20).Resize(n - 2, 5) = brr
    Cells(2, 20).Resize(1, 5) = Array("材料占比", "人工占比", "制费占比", "辅材占比", "外协占比")
End Sub

半百

在你的代码基础上改几处
Sub 备份()
    n = Range("B1:B" & Range("B65536").End(3).Row)
    For i = 3 To UBound(n)
        Cells(i, 20) = Cells(i, 18)
        If Cells(i, 1) <> 0 Then Cells(i, 20) = Cells(i - 1, 20)
        Cells(i, 21) = Cells(i, 18)
        If Cells(i, 1) <> 0 Then Cells(i, 21) = Cells(i - 1, 21)
        Cells(i, 22) = Cells(i, 16)    '这里没改
        If Cells(i, 1) <> 0 Then Cells(i, 22) = Cells(i - 1, 22)
        Cells(i, 23) = Cells(i, 18)
        If Cells(i, 1) <> 0 Then Cells(i, 23) = Cells(i - 1, 23)
        Cells(i, 24) = Cells(i, 18)
        If Cells(i, 1) <> 0 Then Cells(i, 24) = Cells(i - 1, 24)
    Next
    n = Range("B1:B" & Range("B65536").End(3).Row)
    For i = 3 To UBound(n)
        Cells(i, 20) = Cells(i, 13) / Cells(i, 20)
        Cells(i, 21) = Cells(i, 14) / Cells(i, 21)
        If Cells(i, 21) = 0 Then Cells(i, 21) = Empty
        Cells(i, 22) = Cells(i, 15) / Cells(i, 22)
        If Cells(i, 22) = 0 Then Cells(i, 22) = Empty
        Cells(i, 23) = Cells(i, 16) / Cells(i, 23)
        If Cells(i, 23) = 0 Then Cells(i, 23) = Empty
        Cells(i, 24) = Cells(i, 17) / Cells(i, 24)
        If Cells(i, 24) = 0 Then Cells(i, 24) = Empty
    Next
    For e = 0 To 4
        ttitle = Split("材料占比 人工占比 制费占比 辅材占比 外协占比")
        Cells(1, 20 + e) = ttitle(e)
    Next
End Sub

lsc900707

半百 发表于 2016-8-22 22:03
在你的代码基础上改几处
Sub 备份()
    n = Range("B1:B" & Range("B65536").End(3).Row)

ttitle = Split("材料占比 人工占比 制费占比 辅材占比 外协占比")
这个用法第一次看到，学学，谢谢！

半百

lsc900707 发表于 2016-8-22 22:59
ttitle = Split("材料占比 人工占比 制费占比 辅材占比 外协占比")
这个用法第一次看到，学学，谢谢！

这是楼主原来的代码，只是字符串中间多了个逗号，我给去掉了。
我也是第一次看到这样用的，我平常都用ARRAY给数组赋值的。ARRAY要比SPLIT多打不少双引号。