- 博客(4)
- 收藏
- 关注
RSS订阅原创 VBA复制拆分工作表调用excel公式
Sub BJ_Union删除大区_汇总款式销售信息并排序() Application.DisplayAlerts = False Dim St1 As Object, St2 As Object, Cel As Object, Rng As Object Dim Row1 As Integer '每次运行程序之前,删掉之前生成的排名表 For Each St1 In Sheets If Right(St1.Name, 2) = "排名" Then '判断表名最后两个字符是否是"排名" .
2021-07-30 10:58:19
451
原创 VBA for Excel 筛选功能 autofilter
range().autofilter filed:=N,criteria 1:=***, operator:=xland,criteria2:=*** N 不是代表第N列，是range里的N列； range()区域可以不是第一行，也可以是整个表格 若想在第N列筛选基础上再加入M列的筛选，直接再写一行M列筛选 range().autofilter filed:=M,criteria:=*** ...
2020-05-10 11:48:59
2599
原创 VBA for Excel 三种判断行号的方法
从65536行往上数 range(“A65536”).end(xlup).row 从使用过的行号计算 会导致重复多数行号，需要慎用 usedrange.rows.count 第一列往上数，最后一个单元格行号 cells(rows.count,1).end(xlup).row 需要注意03版excel文件处理行号边界为65536 新版的为1048576。在使用过程中请注意文件边界问题。 ...
2020-05-10 11:39:53
2211
原创 多个excel文件内容合并成一个文件表内容
多个excel文件内容合并成一个文件表内容 Sub 简单合并() Dim FS, fils, fil, fol, bname, ename Set FS = CreateObject("scripting.filesystemobject") Set fol = FS.getfolder("D:\CC talk\第22课附件\待合并文件\") Set fils = fol.Files '新增工作表 Workbooks.Add Dim st1, st2, st1row, st2row, wb2 Set
2020-05-10 11:00:45
515
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人