合并单元格及单元格求和

认真学习123456

合并单元格及单元格求和，请各位大神帮忙解决一下，vba、函数都可以，谢谢谢谢谢谢谢谢谢谢

sj15627581616

函数公式，请参考

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.2.7
   
2.     arr = Me.UsedRange
   
3.     For i = 3 To UBound(arr)
   
4.         arr(i, 11) = arr(i, 6) * arr(i, 7) * 0.01
   
5.         arr(i, 12) = arr(i, 6) * arr(i, 8) * 0.01
   
6.         arr(i, 13) = arr(i, 6) * arr(i, 16) * 0.01
   
7.         arr(i, 14) = arr(i, 6) * arr(i, 17) * 0.01
   
8.         arr(i, 10) = arr(i, 11) + arr(i, 12) + arr(i, 13) + arr(i, 14)
   
9.     Next
   
10.     Me.UsedRange = arr
    
11. End Sub
    

复制代码

ahljkt

Sub 汇算()  '//2024.2.7        For i = 3 To Cells(Rows.Count, 1).End(3).Row         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

ahljkt

Sub 汇算()  '//2024.2.7
       For i = 3 To Cells(Rows.Count, 1).End(3).Row
        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

ahljkt

sj15627581616 发表于 2024-2-7 17:07
函数公式，请参考

Sub 汇算()  '//2024.2.7
       For i = 3 To Cells(Rows.Count, 1).End(3).Row
        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

ahljkt

Sub 汇算()  '//2024.2.7
       For i = 3 To Cells(Rows.Count, 1).End(3).Row
        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-7 23:23
Sub 汇算()  '//2024.2.7
       For i = 3 To Cells(Rows.Count, 1).End(3).Row
        If Range("f" & ...

老师你好，请问一下，我加一行数据计算不起啊，只能计算13行的数据啊，

ahljkt

认真学习123456 发表于 2024-2-8 15:45
老师你好，请问一下，我加一行数据计算不起啊，只能计算13行的数据啊，

是因为第1列没有填入数据，将其改为这样就不受影响了
For i = 3 To ActiveSheet.UsedRange.Rows.Count