excel中的VBA指令示例（二）

  。。。接上篇。

    Range("D1").Select                                   ’选择D1单元格
    ActiveCell.FormulaR1C1 = "装配数量"     ‘单元格内容为装配数量
    
    Range("D1").Select
    Selection.AutoFilter                                   ’启动自动筛选

    ‘对B1到D10000之间的单元格进行筛选，条件是D（第3列）值不等于0，后续可加其他条件
    ActiveSheet.Range("$B$1:$D$10000").AutoFilter Field:=3, Criteria1:="<>0", _
        Operator:=xlAnd

    ’清除当前选择的单元格的排序(sort)设置
    ActiveWorkbook.Worksheets("装配材料").AutoFilter.Sort.SortFields.Clear

    '添加排序规则，以B列的值为对象，对整行进行升序排列，常规方式
    ActiveWorkbook.Worksheets("装配材料").AutoFilter.Sort.SortFields.Add Key:=Range( _
        "B:B"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("装配材料").AutoFilter.Sort    ‘启用排序
        .Header = xlYes                          ’包含表头
        .MatchCase = False                   ‘不区分大小写
        .Orientation = xlTopToBottom     ’从上到下的顺序
        .SortMethod = xlPinYin               ‘拼音排序
        .Apply                                          ’执行排序
    End With

     ‘以B列为对象，对B1到C10000之间的行进行去重操作，不含表头
     ActiveSheet.Range("$B$1:$C$10000").RemoveDuplicates Columns:=1, Header:=xlYes
     
  End Sub