VBA 宏，格式化 Excel 表以按索引和帐户求和

Question

我还有更多格式问题

我正在查看具有索引#（C 列）和帐户#（E 列）的交易表。我需要汇总整个索引中的所有条目，然后才能汇总帐户中的所有条目。我有一些我正在使用的代码，但我不知道如何在计算索引总数后计算帐户条目的总数。

Sub TotalIndex()
'
Dim iRow As Integer, iCol As Integer
Dim oRng As Range
Dim fRow As Integer
Dim lRow As Integer

Set oRng = Range("c4")

iRow = oRng.Row
iCol = oRng.Column
fRow = iRow
Do
'
If Cells(iRow + 1, iCol) <> Cells(iRow, iCol) Then
    Cells(iRow + 1, iCol).EntireRow.Insert shift:=xlDown
    iRow = iRow + 1
    Range("j" & iRow).Font.Bold = True
    Range("j" & iRow).Value = "Total"
    Range("k" & iRow).Font.Bold = True
    lRow = iRow - 1
    Range("k" & iRow).Value = "=sum(k" & CStr(fRow) & ":k" & CStr(lRow) & ")"
    iRow = iRow + 1
    fRow = iRow
Else
    iRow = iRow + 1
End If
'
Loop While Not Cells(iRow, iCol).Text = ""
'
End Sub

Sub TotalAccount()
'
Dim iRow As Integer, iCol As Integer
Dim oRng As Range
Dim fRow As Integer
Dim lRow As Integer

Set oRng = Range("e4")

iRow = oRng.Row
iCol = oRng.Column
fRow = iRow


Dim laRow As Long
Dim laCol As Long

    laRow = Cells.Find(What:="*", _
                    After:=Range("A1"), _
                    LookAt:=xlPart, _
                    LookIn:=xlFormulas, _
                    SearchOrder:=xlByRows, _
                    SearchDirection:=xlPrevious, _
                    MatchCase:=False).Row

Do
'
    If Cells(iRow + 1, iCol) <> Cells(iRow, iCol) Then
        Cells(iRow + 1, iCol).EntireRow.Insert shift:=xlDown
        iRow = iRow + 1
        Range("j" & iRow).Font.Bold = True
        Range("j" & iRow).Value = "Total"
        Range("k" & iRow).Font.Bold = True
        lRow = iRow - 1
        Range("k" & iRow).Value = "=sum(k" & CStr(fRow) & ":k" & CStr(lRow) & ")"
        iRow = iRow + 1
        fRow = iRow
    Else
        iRow = iRow + 1
    End If

'
Loop While Not Cells(iRow, iCol).Text = ""
'
End Sub

我将代码分成两个函数。一个汇总索引，然后另一个功能是“尝试”汇总每个索引内的帐户。

有什么建议吗？

Answer 1

看看这个教程，它会按照 Trashman 的建议做你想做的事。 https://www.youtube.com/watch?v=QuGIlPopVms