Excel用VBA将筛选结果填入指定单元格区域（续）

Excel用VBA将筛选结果填入指定单元格区域（续）

'1. 将需要筛选的数据表中的数据复制到新的另一张表中；

'2. 使用VBA编程语言，运行筛选函数，完成筛选；

'3. 复制筛选结果；

'4. 运行VBA代码，将筛选结果填入指定单元格区域。

'示例代码:

Sub FillData()

Dim iRow As Integer

'设置需要填入数据区域的开始行数

iRow = 1

'清空目标单元格中已有数据

Range("A1:C20").Clear

'复制需要筛选数据的所有行

Range("A1:C20").Copy

'打开源数据表

Workbooks.Open "C:DataData.xls"

'筛选源数据表

Range("A1:C20").Select

Selection.AutoFilter

Selection.AutoFilter Field:=2, Criteria1:="="

'定义源数据表标识

Dim wbSrc As Workbook

Set wbSrc = ActiveWorkbook

'复制筛选结果

Range("A1:C20").Copy

'返回目标表，定义为当前活动文件

ThisWorkbook.Activate

'将筛选结果填入指定单元格区域

Sheets("Sheet1").Select

Range("A1").Select

ActiveSheet.Paste Destination:=Range("A" & iRow)

'关闭源数据表

wbSrc.Close False

End Sub