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

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

讓我給你看一個(gè)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=“”

對(duì)于FC中的每個(gè)F1

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

如果s=“”那么

F1。名字

]其他

]F1。Name

end if

end if

next

xlsfiles=split（s，“|”）

dim I as long

dim n as long

請(qǐng)問(wèn)有沒(méi)有辦法從excel中用VBA編程提取數(shù)據(jù)按條件生成另一張表？

當(dāng)然，這個(gè)想法可以用VBA實(shí)現(xiàn)，見(jiàn)附表：對(duì)應(yīng)代碼如下

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

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