1. 筛选

主要使用的命名方式如下

ActiveSheet.Range("$A$1:$L$41500").AutoFilter Field:=1, Criteria1:=T1
' 1 指第几列，T1 指筛选内容

1.1 在某一基础上筛选

即先筛选某项内容，在这基础上再筛选另一个内容

ActiveSheet.Range("$A$1:$L$41500").AutoFilter Field:=1, Criteria1:=T1
' 叠加使用即可
ActiveSheet.Range("$A$1:$L$41500").AutoFilter Field:=3, Criteria1:=T2

1.2 多条件筛选

实际功能指令如下


代码运行如下

    ActiveSheet.Range("$A$1:$AF$21477").AutoFilter Field:=17, Criteria1:=ProvinceV
    ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort.SortFields.Add2 Key:= _
        Range("B2:B21477"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
        :=xlSortNormal
    ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort.SortFields.Add2 Key:= _
        Range("P2:P21477"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
        :=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

2. 返回行号

主要代码

T1 = ActiveSheet.UsedRange.Rows.Count

3. 删除某列重复数据

删除某列重复数据，选出该列不一样数据。

Windows(FileName2).Sheet("Sheet1").Range("B:B").RemoveDuplicates Columns:=1, Header:=xlYes

B列数据，若是有重复就删掉

4. 删除当页全部数据

选择某工作薄所有内容，进行清除。

Sheets("缓存区").Select
Cells.Select
Selection.ClearContents

5. 求和

对筛选出的数据进行求和，未在筛选范围内的不进行筛选。

    Dim cell As Range
    Dim i As Integer
   	SumData = 0
    i = Range("a65535").End(xlUp).Row			'返回当前单元格的行号
    For Each cell In Range("a3:a" & i)
        If Rows(cell.Row).Hidden = False Then	'判断当前行是否为隐藏
            If cell.Row Is Not 1 Then			'判断当前行号是否为1  is not相当于≠
                T = Cells(cell.Row, 2)
                SumData = T + Int(SumData)
            End If
        End If
    Next cell

6. 复制黏贴

6.1 第一种

' 复制
Windows(FileName1).Activate
Sheets("Sheet1").Select
Range("B:B,E:E,P:P,Q:Q").Select
Selection.Copy
' 黏贴
 Windows(FileName).Activate
 Sheets(SheetName).Select
 Range("A1").Select
 ActiveSheet.Paste

6.2 第二种

' 复制
Windows(FileName1).Sheets("Sheet1").Range("B:B,E:E,P:P,Q:Q").Copy
' 黏贴
 Windows(FileName).Sheets(SheetName).Range("A1").Select
 ActiveSheet.Paste

6.2 第三种

' A1单元格数据直接拷贝到A2单元格
Range("A1").Copy Range("A2")

7. 全部数据

详情可见完整代码

参考地址：
[1] https://docs.microsoft.com/zh-cn/office/client-developer/excel/excel-home?redirectedfrom=MSDN
该代码仅供学习，如商业转载请联系本人，非商业转载请注明出处
如有错误，望批评指正，谢谢！！！