excel - 尝试将数据复制到仪表板，但没有复制，我不知道为什么

Question

我有一个基于日期的数据库中的高级过滤器过滤数据。我试图让结果显示在仪表板上，但它没有复制过来。我的代码如下。

Dim PLRow As Long
Dim LastTransRow As Long
Dim AcctRow As Long
With Sheet1
.Range("F52:J99999").ClearContents
LastTransRow = Sheet6.Range("A" & Rows.Count).End(xlUp).Row
Sheet6.Range("AK3:AP99999").ClearContents
Sheet6.Range("A2:F" & LastTransRow).AdvancedFilter xlFilterCopy, CriteriaRange:=Sheet6.Range("AA2:AC3"), CopyToRange:=Sheet6.Range("AK2:AP99999"), Unique:=True
If Sheet6.Range("AK3").End(xlUp).Row < 3 Then GoTo NoResults
PLRow = 52 'Set Intial Profit and Loss Row

'Add in Income Accounts
For AcctRow = 3 To 17
    If Sheet6.Range("M" & AcctRow).Value = "Income" And Sheet6.Range("N" & AcctRow).Value <> 0 Then
        .Range("H" & PLRow).Value = Sheet6.Range("L" & AcctRow).Value 'Account Name
        .Range("I" & PLRow).Value = Sheet6.Range("N" & AcctRow).Value 'Account Value
        PLRow = PLRow + 1
    End If
Next AcctRow
.Range("G" & PLRow).Value = "Total Income"
.Range("I" & PLRow).Value = Sheet6.Range("TotIncome").Value
PLRow = PLRow + 2

我需要在我的代码中进行哪些更改，以便它将从表 6 复制到表 1？

标签： excelvba