giúp đở cập nhật du liệu từ file excel book1 sang file book2 thêm lọc du liệu trùng (1 người xem)

[gamegamegamegame]

Em có 2 file book1 và file book2 phần câp nhật thi em lam được rồi nhưng chen thêm phần lọc du liệu trùng nhau thì em ko biêt làm thế nào xin các thầy chỉ giúp
Em có du liệu ơ file book1 từ ô A1 đến A6 như thê này
[TABLE="width: 175"]
[TR]
[TD]nguyenvan a
[/TD]
[/TR]
[TR]
[TD]nguyen van b
[/TD]
[/TR]
[TR]
[TD]nguyen van a
[/TD]
[/TR]
[TR]
[TD]nguyenvan b
[/TD]
[/TR]
[TR]
[TD]nguyen van a
[/TD]
[/TR]
[TR]
[TD]nguyen van b
[/TD]
[/TR]
[/TABLE]
Và em đã cập nhật thành công qua book2
Từ ô A1 đến ô A6 qua book2 như thế này
[TABLE="width: 175"]
[TR]
[TD]nguyenvan a
[/TD]
[/TR]
[TR]
[TD]nguyen van b
[/TD]
[/TR]
[TR]
[TD]nguyen van a
[/TD]
[/TR]
[TR]
[TD]nguyenvan b
[/TD]
[/TR]
[TR]
[TD]nguyen van a
[/TD]
[/TR]
[TR]
[TD]nguyen van b
[/TD]
[/TR]
[/TABLE]
Vấn đề phát sinh la co nhiều du liệu trùng nhau
Em muốn là cập nhật từ book1 sang book2 nó sẻ ra như thế này
[TABLE="width: 175, align: left"]
[TR]
[TD]nguyenvan a
[/TD]
[/TR]
[TR]
[TD]nguyen van b
[/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD]Nhờ các thầy giúp đở
[/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[TR]
[TD][/TD]
[/TR]
[/TABLE]

 

[gamegamegamegame]

nếu bạn muốn biết cách lấy thì tôi viết như sau (thay tên sheet thành địa chỉ vùng là được):

sub locduynhat()    dim conn as object, rst as object, ors as object
    set conn = createobject("adodb.connection")
    conn.open "provider=msdasql.1;dsn=excel files;dbq=" & thisworkbook.path & "\book1.xlsm;"
    set rst = conn.execute("select distinct * from [COLOR=#ff0000][B][a1:a100][/B][/COLOR]")
    sheet1.range("a2:a100").clearcontents
    sheet1.range("a2").copyfromrecordset rst
    
end sub

nếu sau này gặp phải vấn đề gì thì tôi không chịu trách nhiệm nhé.

em gặp một vấn đề rắc rối với dữ liệu của em như thế này xin anh chị giúp
nếu sai đoạn code trên thì ko chọn đc sheet chỉ định
có cách nào vừa chọn vùng chọn vừa chỉ định đc sheet ko anh

 

[gamegamegamegame]

Code này Giống code Bài 9 nha chạy xem sao....chạy quanh quẩn có mấy dòng đó đảo lên đảo xuống thôi mà..........

Sub LocDuyNhat22()
Application.ScreenUpdating = False
    Dim Arr()
    With Workbooks.Open(ThisWorkbook.Path & "\Book1.xlsm", 0)
       With .Sheets("Data")
            Arr = Range("A1").CurrentRegion.Offset(1) ''<-- Luu y Kieu Du Lieu
       End With
       .Close False
    End With
   Range("A2").Resize(UBound(Arr, 1), UBound(Arr, 2)) = Arr
   Range("A2").CurrentRegion.RemoveDuplicates Array(1)
Application.ScreenUpdating = True
End Sub

code này nó lọc luông ô B1 trơ xuống nếu có dữ liệu vậy bây giờ mình ko muống lộc cột B1trơ xuống mà chỉ lọc cột a1 xuống thôi thì phải làm sao

 

[Kiều Mạnh]

code này nó lọc luông ô B1 trơ xuống nếu có dữ liệu vậy bây giờ mình ko muống lộc cột B1trơ xuống mà chỉ lọc cột a1 xuống thôi thì phải làm sao

Thay dòng sau Vào
Range("A1", [A65536].End(3)).RemoveDuplicates 1

 

[gamegamegamegame]

Thay dòng sau Vào
Range("A1", [A65536].End(3)).RemoveDuplicates 1

Range("A1", [A65536].End(3)) như vậy thì nó chạy đc rồi

 

[gamegamegamegame]

tất các các code trên điều lây sheet đầu tiên ko thể lấy các sheet phía trong được hả "kieu manh"

 

[be_09]

tất các các code trên điều lây sheet đầu tiên ko thể lấy các sheet phía trong được hả "kieu manh"

Tại sao ta không nghĩ đến cách lấy dữ liệu bất kỳ File (chứa nhiều sheet) và xóa đúp bất kỳ sheet nhĩ.