各位大大好
现在我想要用特定字段栏的值筛选分档案或是分页
以下我先简述我的方法 各位高手可以跳过
我用的方法是利用EXCEL本身的"特殊筛选"
Columns(ert & ":" & ert).AdvancedFilter Action:=xlFilterInPlace, Unique:=True
复制到一个Transit分页
Sheets.Add After:=ActiveSheet
Sheets(ActiveSheet.Name).Name = "transit"
Sheets("transit").Select
Range("A1").Select
ActiveSheet.Paste
然后从A1用设循环变量X到最后一个
For i = 2 To Sheets("transit").Range("A1").End(xlDown).Row
x = Sheets("transit").Cells(i, "A")
再回原本的工作表筛选那栏筛选并复制出去
PM53 = Range("A2").End(xlDown).Row
ActiveSheet.Range("$A$2:$" & ert & PM53).AutoFilter Field:=Range("a1:" &
ert & "1").Columns.Count, Criteria1:=x
重点在这
虽然这样可以达到我的目的但是
在资料量很多的时候
这样筛选在复制出去很吃资源
请问各位有没有更有效率的方法
例如:不用用一个TRANSIT表做转接 直接回圈指定字段的唯一值(删除重复)
本人都是自学依据EXCEL录制的功能 想比较没有效率的方法
以上问题若有不详尽的还请大家指出来
再请各位高手帮忙