Lọc dữ liệu không trùng bằng 1 sheet mới (2 người xem)

[thnnh10]

Xin giúp đỡ như file yêu cầu.

 

[hoamattroicoi]

Nếu danh sách cố định thế này thì bạn nối 2 danh sách thành 1 vào dùng Advanced Filter và lọc thôi!

 

[Kh Biet]

Xin giúp đỡ như file yêu cầu.

xếp xóa giúp bài này vì không cần nữa .

 

[Lê Duy Thương]

Xin giúp đỡ như file yêu cầu.

CODE ĐÂY

Sub LOC()
Dim WS As Worksheet, TEMP As String
Application.ScreenUpdating = False
TEMP = "?LOC?"
    For Each WS In Worksheets
      If InStr(1, TEMP, "?" & WS.Name & "?", vbTextCompare) = 0 Then
      Sheet3.[A5:H65536].Clear
      WS.[A4].CurrentRegion.Offset(1).Copy Sheet3.[A6500].End(3).Offset(1, 0)
      Sheet3.[A5:H65536].RemoveDuplicates Array(2, 3, 4, 5, 6, 7, 8), Header:=xlYes
      Sheet3.Range("A5:A" & Sheet3.[A65536].End(3).Row) = Evaluate("=Row(r:r)")
      End If
  Next
Application.ScreenUpdating = True
End Sub

HY VỌNG ĐÚNG Ý BẠN

 

[thnnh10]

xếp xóa giúp bài này vì không cần nữa .

Sr bạn, mình mượn tạm file bạn xài với file tương tự

 

[thnnh10]

CODE ĐÂY

Sub LOC()
Dim WS As Worksheet, TEMP As String
Application.ScreenUpdating = False
TEMP = "?LOC?"
    For Each WS In Worksheets
      If InStr(1, TEMP, "?" & WS.Name & "?", vbTextCompare) = 0 Then
      Sheet3.[A5:H65536].Clear
      WS.[A4].CurrentRegion.Offset(1).Copy Sheet3.[A6500].End(3).Offset(1, 0)
      Sheet3.[A5:H65536].RemoveDuplicates Array(2, 3, 4, 5, 6, 7, 8), Header:=xlYes
      Sheet3.Range("A5:A" & Sheet3.[A65536].End(3).Row) = Evaluate("=Row(r:r)")
      End If
  Next
Application.ScreenUpdating = True
End Sub

Cám ơn anh, nhưng chưa đúng ý.
Ý em là làm sao giống như sheet3 ấy, như file này

 

[Lê Duy Thương]

CODE ĐÂY

Sub LOC()
Dim WS As Worksheet, TEMP As String
Application.ScreenUpdating = False
TEMP = "?LOC?"
    For Each WS In Worksheets
      If InStr(1, TEMP, "?" & WS.Name & "?", vbTextCompare) = 0 Then
      Sheet3.[A5:H65536].Clear
      WS.[A4].CurrentRegion.Offset(1).Copy Sheet3.[A6500].End(3).Offset(1, 0)
      Sheet3.[A5:H65536].RemoveDuplicates Array(2, 3, 4, 5, 6, 7, 8), Header:=xlYes
      Sheet3.Range("A5:A" & Sheet3.[A65536].End(3).Row) = Evaluate("=Row(r:r)")
      End If
  Next
Application.ScreenUpdating = True
End Sub

Cám ơn anh, nhưng chưa đúng ý.
Ý em là làm sao giống như sheet3 ấy, như file này

BẠN THAY CODE NÀY XEM SAO

Sub LOC2()
Dim I As Long
  Application.ScreenUpdating = False  
  Sheet3.[A4:H65536].Clear    
    For I = 1 To 2  
      Sheets("Sheet" & I).Range("A4:H500").Copy Sheet3.[A50000].End(3).Offset(1)
     Next 
     Sheet3.[A4:H65536].RemoveDuplicates Array(2, 3, 4, 5, 6, 7, 8), Header:=xlYes  
      Sheet3.Range("A4:A" & Sheet3.[A65536].End(3).Row) = Evaluate("=Row(r:r)") 
 Application.ScreenUpdating = True
End Sub

 

[thnnh10]

Anh có thể giải thích và chỉ cách làm được không?
VD e muốn làm 1 sheet khác thì các bước phải làm là như thế nào để chạy code?

 

[Lê Duy Thương]

Anh có thể giải thích và chỉ cách làm được không?
VD e muốn làm 1 sheet khác thì các bước phải làm là như thế nào để chạy code?

Ý BẠN LÀ CÓ N SHEETS ,VÀ TẤT CẢ ĐỀU TỔNG HỢP VỀ SHEET3(SHEET "LOC") ?.
NẾU VẬY THÌ CODE SẼ LÀ VẦY

Sub LOC2()
Dim I As Long
  Application.ScreenUpdating = False
  Sheet3.[A4:H65536].Clear: [a4].Select
        For I = 1 To Sheets.Count - 1
        Sheets(I).Range("A4:H5000").Copy Sheet3.[A50000].End(3).Offset(1)
        Next
        Sheet3.[A4:H65536].RemoveDuplicates Array(2, 3, 4, 5, 6, 7, 8), Header:=xlYes
        Sheet3.Range("A4:A" & Sheet3.[A65536].End(3).Row) = Evaluate("=Row(r:r)")
       
  Application.ScreenUpdating = True
End Sub

 

[thnnh10]

Rất cám ơn bạn.
Mình muốn chỉ mình cách làm.
VD như mình không đặt tên sheet là LOC, với tên khác thì cách làm sẽ như thế nào, và code đó có chạy được không?
Mình không rành lắm, thông cảm

 

[chuot0106]

Rất cám ơn bạn.
Mình muốn chỉ mình cách làm.
VD như mình không đặt tên sheet là LOC, với tên khác thì cách làm sẽ như thế nào, và code đó có chạy được không?
Mình không rành lắm, thông cảm

Tôi không xem File của bạn nhưng thấy trong code của anh Thương sheet LOC của bạn là sheet3, vậy nếu sheet thật của bạn vẫn ở sheet3 thì code vẫn chạy bình thường, còn nếu vị trí sheet của bạn khác: vd sheet1 hoặc sheet2...thì trong code bạn sửa sheet3 thành sheet1 hoặc sheet2....