合并单元格及单元格求和

ahljkt

Sub 汇算()  '//2024.2.7
       For i = 3 To ActiveSheet.UsedRange.Rows.Count
        If Range("f" & i).MergeCells = True And Range("f" & i).Row <> Range("f" & i).MergeArea.Row Then
         hh = Range("f" & i).MergeArea.Count
         Range("k" & i) = Range("f" & i - hh + 1) * Range("g" & i) * 0.01
         Range("l" & i) = Range("k" & i) * Range("h" & i) * 0.01
         Range("m" & i) = Range("f" & i - hh + 1) * Range("p" & i) * 0.01
            If Range("m" & i) = 0 Then
            Range("m" & i) = ""
            End If
         Range("n" & i) = Range("f" & i - hh + 1) * Range("q" & i) * 0.01
            If Range("n" & i) = 0 Then
            Range("n" & i) = ""
            End If
        Else
         Range("k" & i) = Range("f" & i) * Range("g" & i) * 0.01
         Range("l" & i) = Range("k" & i) * Range("h" & i) * 0.01
         Range("m" & i) = Range("f" & i) * Range("p" & i) * 0.01
            If Range("m" & i) = 0 Then
            Range("m" & i) = ""
            End If
         Range("n" & i) = Range("f" & i) * Range("q" & i) * 0.01
            If Range("n" & i) = 0 Then
            Range("n" & i) = ""
            End If
        End If
        Range("j" & i) = Range("k" & i) + Range("l" & i) + Range("m" & i) + Range("n" & i)

        Next
End Sub

认真学习123456

ahljkt 发表于 2024-2-8 18:13
Sub 汇算()  '//2024.2.7
       For i = 3 To ActiveSheet.UsedRange.Rows.Count
        If Range("f"  ...

谢谢大老，新年快乐

yanglinzi

yanglinzi

ahljkt

yanglinzi 发表于 2024-2-9 23:11

使用变量方法，这个只能解决两行合并单元格，但如果是三行以上合并的话就不行了。

yanglinzi

ahljkt 发表于 2024-2-11 09:09
使用变量方法，这个只能解决两行合并单元格，但如果是三行以上合并的话就不行了。

经测试，有多少合并的单元格都行。

准提部林

ahljkt 发表于 2024-2-11 09:09
使用变量方法，这个只能解决两行合并单元格，但如果是三行以上合并的话就不行了。

可以的..這是填空法//當前格為空, 取用上一格...最後所有空格都有值
另法//反向思考...將非空代入變數//
For i = 3 To UBound(arr)
    If arr(i, 6) <> "" Then v = val(arr(i, 6))
    arr(i, 11) = v * arr(i, 7)
    arr(i, 12) = v * arr(i, 8)
    arr(i, 13) = v * arr(i, 16)
    arr(i, 14) = v * arr(i, 17)
    arr(i, 10) = arr(i, 11) + arr(i, 12) + arr(i, 13) + arr(i, 14)
Next