ActiveSheet.Range("$A$1:$C" & Range("A1048567").End(xlUp).Row).AutoFilter Field:=2, Criteria1:=a, _ Operator:=xlTop10Items提示類REANGE 的autofilter 方法無效,如何亻改

这个错误通常是由于当前活动工作表中没有数据，或者数据不足以填满 A1:C1048567 区域所致。解决方法有两个：

1. 检查活动工作表是否有数据，如果没有，可以在 A1:C1 中手动输入一些数据，然后运行该代码。

2. 修改代码中的区域范围。您可以尝试使用以下代码：

Dim lastRow As Long
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
ActiveSheet.Range("A1:C" & lastRow).AutoFilter Field:=2, Criteria1:=a, Operator:=xlTop10Items

这将使用最后一行的行数作为该区域的结束位置，而不是使用固定的行数 1048567。这样可以确保只有实际数据所在的行被筛选，而不会出现“REANGE 的autofilter 方法无效”的错误。

相关问题

ActiveSheet.Range("$A$:$C" & Range("A1048567").End(xlUp).Row).AutoFilter Field:=3, Criteria1:="<0", _ Operator:=xlAnd 這段代碼什麼意思

这段代码是针对 Excel 的 VBA 语言的，它的作用是对工作表中的数据进行筛选。

具体来说，它会选择当前活动的工作表（ActiveSheet），然后在 A 列到 C 列中找到最后一行有数据的行（Range("A1048567").End(xlUp).Row）作为筛选的范围。

然后，它会对第三列的数据进行筛选（Field:=3），将小于 0 的数据过滤出来（Criteria1:="<0"），并且使用与运算符（Operator:=xlAnd）同时满足小于 0 的条件。

简而言之，这段代码的作用是将当前工作表中第三列中小于 0 的数据筛选出来。

Dim ws As Worksheet Dim lastRow As Long Set ws = ThisWorkbook.Worksheets("Sheet1") '清除格式和删除行列 ws.Cells.ClearFormats ws.Range("1:2").Delete Shift:=xlUp ws.Range("A:A,B:B,C:C,F:F,G:G,I:I,J:J,K:K,M:M,P:P,Q:Q,S:S,T:T").Delete Shift:=xlToLeft '添加新列 ws.Range("H1").Value = "回收时间" ws.Range("K1").Value = "回收人" ws.Range("L1").Value = "复核人" ws.Columns("E:E").Copy Destination:=ws.Columns("I:I") ws.Columns("F:F").Copy Destination:=ws.Columns("J:J") '筛选数据 ws.Range("A:D").AutoFilter ws.Range("A:D").AutoFilter Field:=1, Criteria1:="<>tt", VisibleDropDown:=False ws.Range("A:D").AutoFilter Field:=2, Criteria1:="<>996999", VisibleDropDown:=False ws.Range("A:D").AutoFilter Field:=3, Criteria1:="<>996999", VisibleDropDown:=False ws.Range("A:D").AutoFilter Field:=4, Criteria1:="<>*贴", Operator:=xlAnd, Criteria2:="<>*片", VisibleDropDown:=False '排序数据 With ws.Sort .SortFields.Clear .SortFields.Add2 Key:=ws.Range("A2:A500"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal .SetRange ws.Range("A1:L500") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With With ActiveSheet .Columns.AutoFit .Rows.AutoFit .Rows("1:1").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove .Rows("1:1").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove .Rows("1:1").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove End With '合并单元格 With ws.Range("A1:L1") .Merge .Value = "yyy" End With '调整列宽 ws.Columns("B:B").ColumnWidth = 7.5 ws.Columns("E:E,I:I").ColumnWidth = 3.08 End Sub 改进

Sub UpdateData()
Dim ws As Worksheet
Dim lastRow As Long

Set ws = ThisWorkbook.Worksheets("Sheet1")

'清除格式和删除行列
With ws
.Cells.ClearFormats
.Range("1:2").Delete Shift:=xlUp
.Range("A:A,B:B,C:C,F:F,G:G,I:I,J:J,K:K,M:M,P:P,Q:Q,S:S,T:T").Delete Shift:=xlToLeft

'添加新列
.Range("H1").Value = "回收时间"
.Range("K1").Value = "回收人"
.Range("L1").Value = "复核人"

'复制列
.Columns("E:E").Copy Destination:=.Columns("I:I")
.Columns("F:F").Copy Destination:=.Columns("J:J")

'筛选数据
.Range("A:D").AutoFilter
.Range("A:D").AutoFilter Field:=1, Criteria1:="<>tt", VisibleDropDown:=False
.Range("A:D").AutoFilter Field:=2, Criteria1:="<>996999", VisibleDropDown:=False
.Range("A:D").AutoFilter Field:=3, Criteria1:="<>996999", VisibleDropDown:=False
.Range("A:D").AutoFilter Field:=4, Criteria1:="<>*贴", Operator:=xlAnd, Criteria2:="<>*片", VisibleDropDown:=False

'排序数据
lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
With .Sort
.SortFields.Clear
.SortFields.Add Key:=ws.Range("A2:A" & lastRow), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.SetRange ws.Range("A1:L" & lastRow)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

'合并单元格
.Range("A1:L1").Merge
.Range("A1").Value = "yyy"

'调整列宽
.Columns("B:B").ColumnWidth = 7.5
.Columns("E:E,I:I").ColumnWidth = 3.08

'调整行高和列宽
.Cells.EntireRow.AutoFit
.Columns.AutoFit

'插入空白行
.Rows("1:3").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End With

End Sub