excel中的VBA指令示例（二）

啊波次得饿佛哥2025-04-10 10:13

。。。接上篇。

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