excel中的VBA指令示例(二)

。。。接上篇。

Range("D1").Select '选择D1单元格

ActiveCell.FormulaR1C1 = "装配数量" '单元格内容为装配数量

Range("D1").Select

Selection.AutoFilter '启动自动筛选

'对B1到D10000之间的单元格进行筛选,条件是D(第3列)值不等于0,后续可加其他条件

ActiveSheet.Range("B1:D10000").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("B1:C10000").RemoveDuplicates Columns:=1, Header:=xlYes

End Sub

相关推荐
SunkingYang5 小时前
详细介绍C++中通过OLE操作excel时,一般会出现哪些异常,这些异常的原因是什么,如何来解决这些异常
c++·excel·解决方案·闪退·ole·异常类型·异常原因
Wu_hello_mi5 小时前
Excel使用教程笔记
笔记·excel
恶猫5 小时前
Polaris Officev9.9.12全功能解锁版
pdf·word·excel·ppt·office·办公·打工
杂货铺的小掌柜6 小时前
apache poi excel 字体数量限制
java·excel·poi
东方佑19 小时前
基于FastAPI与LangChain的Excel智能数据分析API开发实践
langchain·excel·fastapi
许泽宇的技术分享19 小时前
当Excel遇上大语言模型:ExcelAgentTemplate架构深度剖析与实战指南
语言模型·架构·excel
gihigo199820 小时前
基于MATLAB的Excel文件批量读取与循环处理
matlab·excel
Access开发易登软件1 天前
Access调用Azure翻译:轻松实现系统多语言切换
后端·python·低代码·flask·vba·access·access开发
CodeCraft Studio1 天前
Excel处理控件Aspose.Cells教程:使用 Python 将 HTML 转换为 Excel
python·html·excel·aspose·aspose.cells·html转excel