Tag: 代码审查

Excel VBA替代高级过滤/提高处理时间

目标是让这个代码更有效地运行。 我相信主要的问题是filter。 这个数据有32,000多行。 另一个有60万行以上的标签则更糟。 计算是需要的，因为数据被带到另一个选项卡，然后返回一次计算（sorting然后按顺序）。 任何想法都表示赞赏。 Sub TestMacro() Application.ScreenUpdating = False Application.DisplayStatusBar = False Application.Calculation = xlManual ActiveSheet.DisplayPageBreaks = False Range("SubtotalRngClear").ClearContents On Error Resume Next Range("FilterArea").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _ Range("Criteria"), Unique:=False On Error Resume Next Range("SubtotalRngClear").SpecialCells(xlCellTypeVisible).FormulaR1C1 = "=SUBTOTAL(3,R10C2:RC[1])" Worksheets("RETS").Calculate If Not Application.CalculationState = xlDone Then DoEvents End If Worksheets("Spreadsheet").Calculate If Not Application.CalculationState = xlDone Then […]