合并同类项并出月小计

yulongda

数据会根据sheet1的不断新增而变化，最终想实现对点击【刷新】后所生成的数据，进行【项目】列合并同类项，并以【日期】列出各月【金额】列小计。对所出小计行进行自动填充背景色和字体颜色。最终像右边表的效果。如何在此代码的基础上实现请大神看看。

Sub 合并同类型出月小计()

    Dim brr(1 To 99999, 1 To 4)

    Range("A3:D" & Rows.Count).ClearContents

    For Each sht In Sheets

        If IsNumeric(sht.Name) Then

            With sht

                arr = .[a1].CurrentRegion

                For i = 2 To UBound(arr)

                    If Len(arr(i, 2)) > 0 And InStr(arr(i, 1), "是") Then

                        m = m + 1

                        For j = 1 To 4

                            brr(m, j) = arr(i, j + 1)

                        Next

                        brr(m, 4) = arr(i, 7)

                    End If

                Next

            End With

        End If

    Next

    If m Then

        [a3].Resize(m, 4) = brr

    End If

End Sub

zpy2

这种感觉还是要方便的话用数据透视表查询一下吧。