excel按条件提取整行数据到新工作簿的函数

excel按条件提取整行数据到新工作簿的函数在Excel中，要按照条件从一个工作簿中提取整行数据到新的工作簿，可以使用VBA编程语言。下面是一个示例的VBA代码，可以根据指定的条件，将符合条件的行数据复制到新的工作簿：

```vba

SubExtractRowsToNewWorkbook()

DimsourceWorkbookAsWorkbook

DimsourceWorksheetAsWorksheet

DimnewWorkbookAsWorkbook

DimnewWorksheetAsWorksheet

DimlastRowAsLong

DimiAsLong

DimcriteriaAsString

'设定条件

criteria="条件"'替换为你的条件

'打开源工作簿

SetsourceWorkbook=ThisWorkbook'当前工作簿

SetsourceWorksheet=sourceWorkbook.Worksheets("Sheet1")'替换为你的源工作表

'创建新工作簿

SetnewWorkbook=Workbooks.Add

SetnewWorksheet=newWorkbook.Worksheets("Sheet1")

'在新工作簿中复制标题行

sourceWorksheet.Rows(1).CopyDestination:=newWorksheet.Rows(1)

'获取源工作表的最后一行

lastRow=sourceWorksheet.Cells(sourceWorksheet.Rows.Count,1).End(xlUp).Row

'遍历源工作表中的数据

Fori=2TolastRow

'检查条件

IfsourceWorksheet.Range("A"&i).Value=criteriaThen'替换为你的条件列

sourceWorksheet.Rows(i).CopyDestination:=newWorksheet.Rows(newWorksheet.Cells(Rows.Count,1).End(xlUp).Row+1)

EndIf

Nexti

'保存并关闭新工作簿

newWorkbook.SaveAs"路径\新工作簿.xlsx"'替换为你想要保存的路径和文件名

newWorkbook.Close

'清理对象

SetnewWorksheet=Nothing

SetnewWorkbook=Nothing

SetsourceWorksheet=Nothing

SetsourceWorkbook=Nothing

MsgBox"提取完成！"

EndSub

```

上述代码中，你需要根据你的具体情况做一些修改：

1.在指定条件的部分，你需要将"条件"替换为你真正想要匹配的条件。可以是一个具体的值，也可以是一个公式。

2.在获取源工作表最后一行的部分，根据你的数据所在的列修改`Range("A"&i)`，将"A"替换为你的条件列的字母。

在运行该代码之前，请确保已经打开包含要提取数据的源工作簿，并且源工作簿中包含一个名为"Sheet1"的工作表。代码将会在新创建的