VBA 按条件查找并提取数据

不需要VBA，只需要vlookup函数就可以了，比如根据销售订单号（在E1）找印刷设备，可以设这样的公式：=VLOOKUP(E1,A:D,2,0)，其他的类推（比如=VLOOKUP(E1,A:D,3,0)）就可以了。

Sub Macro1()

dim years as string

years ="2000"

    Rows("1:1").Select

    Selection.AutoFilter

    ActiveSheet.cells.AutoFilter Field:=4, Criteria1:=years 

End Sub

以上代码定于years 变量，可根据设置年份

然后选择第一行，生成高级筛选，筛选条件是第四列，筛选内容是变量years

1、打开文档，输入一些数字。

2、然后在空白的单元格内容输入【=MID】，选择MID函数。

3、然后三个参数依次选择【A1,2,3】，代表取A1单元格数据，从第2个数字开始，取3个数字。

4、按下【Enter】键，可以看到结果已经出现了。

5、然后拉下右下角的填充柄，即可将其他的单元格内容快速提取出来。

---