
excel
VBASub FilterData()Dim wb As WorkbookSet wb = Workbooks.Open("测试.xlsx")wb.Sheets("Sheet1").Range("A1:Z100").EntireColumn.AutoFilterwb.Sheets("Sheet1").Range("A1:Z100").Filter spectra(1).SetRange "2022/01/01,2022/06/30"Application.WAIt (Now + "0:0:1")wb.Sheets("Sheet1").Range("A1:Z100").ClearFilterSet ws = wb.Sheets("Sheet1")ws.AutoFilterColumns 1, FalseEnd Sub以上脚本会自动筛选出2022年1月至6月期间的数据,并输出结果。Copyright © 2025 IZhiDa.com All Rights Reserved.
知答 版权所有 粤ICP备2023042255号