查询多行多列数据的方法有多种,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
