vbscript TMP1-VBA

Posted 2021-05-21

[1]获取最后一行的行号：
r_last = Activesheet.UsedRange.Find(what:="*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row

[1]
workbook.open()的上面，需加上“on error resume next”

[1]高级筛选
复制到某处
    Range("A1:B5").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
        "B1:B2"), CopyToRange:=Range("A10:B10"), Unique:=False
        
[1]去掉标题行
Set tbl = ActiveCell.CurrentRegion
tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, tbl.Columns.Count).Select