- 博客(4)
- 收藏
- 关注
原创 VBA更改Excel文件名称
Set fso = CreateObject("Scripting.FileSystemObject") '文件访问对象。file_path = "D:\研究生课程\stata\第四次作业\公司数据" '指定文件夹。[a1].Resize(1, 2) = Array("原文件名", "新文件名"): i = 1。file_path = "D:\研究生课程\stata\第四次作业\公司数据" '指定文件夹。Range("A:B").ClearContents '仅清空数据。Sub 文件重命名()
2024-04-09 18:30:04
473
原创 VBA中根据某个指定的单元格进行筛选
ActiveSheet.ListObjects("表1").Range.AutoFilter Field:=3, Criteria1:=x。Set x = Worksheets("销售查询").Range("E6")AutoFilter Field :筛选的字段位于筛选区域的第几列。Sheets("销售数据库").Select。
2024-03-14 09:28:45
318
原创 VBA将一个sheet中的数据自动复制到另一个
**代码小白初来乍到,若有问题或优化建议,请多多指教~~~Sheets("销售数据库").Select。Sheets("销售数据库").Select。Sheets("销售数据库").Select。Sheets("销售数据库").Select。Sheets("销售清单").Select。Sheets("销售清单").Select。Sheets("销售清单").Select。Sheets("销售清单").Select。Sheets("销售清单").Select。Sheets("销售清单").Select。
2024-03-14 09:02:17
2308
2
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人