VBA for excel
大管同学
这个作者很懒,什么都没留下…
展开
-
VBA复制拆分工作表调用excel公式
Sub BJ_Union删除大区_汇总款式销售信息并排序()Application.DisplayAlerts = FalseDim St1 As Object, St2 As Object, Cel As Object, Rng As ObjectDim Row1 As Integer'每次运行程序之前,删掉之前生成的排名表For Each St1 In Sheets If Right(St1.Name, 2) = "排名" Then '判断表名最后两个字符是否是"排名" .原创 2021-07-30 10:58:19 · 396 阅读 · 0 评论 -
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 · 2453 阅读 · 0 评论 -
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 · 1938 阅读 · 0 评论 -
多个excel文件内容合并成一个文件表内容
多个excel文件内容合并成一个文件表内容Sub 简单合并()Dim FS, fils, fil, fol, bname, enameSet FS = CreateObject("scripting.filesystemobject")Set fol = FS.getfolder("D:\CC talk\第22课附件\待合并文件\")Set fils = fol.Files'新增工作表Workbooks.AddDim st1, st2, st1row, st2row, wb2Set原创 2020-05-10 11:00:45 · 468 阅读 · 0 评论