Excel里怎么批量提取某列符合一定條件的整行數(shù)據(jù)？讓我給你看一個VBA的例子，sub test（）dim XLS Folder As String此工作簿。路徑& “textxls”Dim x

Excel里怎么批量提取某列符合一定條件的整行數(shù)據(jù)？

讓我給你看一個VBA的例子，

sub test（）

dim XLS Folder As String此工作簿。路徑

& “textxls”

Dim xlsFiles（）作為字符串

Dim fso，f，fc，s

設(shè)置fso=CreateObject（）腳本.FileSystemObject“）

集f=fso.GetFolder文件夾（xlsuufolder）

f.files

]s=“”

對于FC中的每個F1

如果不是strcomp（右）（F1。名稱，4），”。Xls“，1）那么

如果s=“”那么

F1。名字

]其他

]F1。Name

end if

end if

next

xlsfiles=split（s，“|”）

dim I as long

dim n as long

請問有沒有辦法從excel中用VBA編程提取數(shù)據(jù)按條件生成另一張表？

當然，這個想法可以用VBA實現(xiàn)，見附表：對應(yīng)代碼如下

子按鈕1點擊（）頁（“月報”）。選擇“以顯示匯總表n=范圍（”A4“）內(nèi)飾顏色索引每張表（“每日報告”）。如果一個內(nèi)飾顏色索引=N then s=s a.valuenextrange（“B4”）=s“顯示摘要結(jié)果End Sub

提示：使用VBA時，應(yīng)“啟用宏”