OpenImp3.bas

Sub OpenImp3() 'Lấy nội dung từ 1 vùng xác định
  Const sPath="C:\Test\" 'Đường dẫn tới thư mục
Dim sFil As String
Dim owb As Workbook
Dim ws As Worksheet
Dim lr as long

Set ws=Sheet1
sFil=Dir(sPath & "*.xl*") 

Do While sFil <> ""
  Set owb=Workbooks.Open(sPath & sFil)  'Mở workbook cần lấy nội dung
  'Lọc nội dung cần lấy trong vùng từ A1 tới dòng cuối cột F, giá trị lọc là England ở cột A
  Range("A1", Range("F" & Rows.Count).End(xlUp)).AutoFilter Field:=1, Criteria1:="England"
  'Nếu có kết quả lọc thì copy dữ liệu
  lr=Range("F" & Rows.Count).End(xlUp).Row
  If lr > 1 Then Range("A2", Range("F" & Rows.Count).End(xlUp)).Copy ws.Range("A" & Rows.Count).End(xlUp)(2)
  'Đóng workbook đã mở, không lưu file
  owb.Close False
  
  sFil=Dir
Loop

End Sub