查询多行多列数据的方法有多种,Vlookup、Hlookup、Index、Match、Union等等的综合使用,不管用哪种方法,只要能实现管理或者工作目标就可以了。高级筛选能够把符合条件的值复制到指定的位置,代码如下：

Private Sub Worksheet_Change(ByVal Target As Range)

'关闭屏幕闪烁及弹窗

Application.ScreenUpdating = False

Application.DisplayAlerts = False

with sheet1

If .Target.Row = 2 And .Target.Column = 1 Then

.[c2:j65536].ClearContents

'把数据库工作表中A1到H65536的内容，根据当前工作表的A2单元格的值复制到当前工作表的C1到J65536单元格

Sheet2.Range("A1:H65536").AdvancedFilter Action:=xlFilterCopy, _

CriteriaRange:=.Range("A1:A2"), CopyToRange:=.Range("C1:J65536"), Unique:=True

End If

End with

'开启屏幕闪烁及弹窗

Application.ScreenUpdating = True

Application.DisplayAlerts = True

End Sub