Lấy dữ liệu từ file khác và xóa một số dữ liệu trùng nhau

[Tuan_hcth]

Em có 2 file (gửi kèm): Làm thế nào để có thể lấy dữ liệu từ “file nguon” sang “file mau” với định dạng giống như trong “file mau” gửi kèm ạ. Cảm ơn các anh chị.

 

[phulien1902]

Em có 2 file (gửi kèm): Làm thế nào để có thể lấy dữ liệu từ “file nguon” sang “file mau” với định dạng giống như trong “file mau” gửi kèm ạ. Cảm ơn các anh chị.

+ Với File nguon, bạn thay cho tôi công thức:
[FORMULA]=IF(B2="","",COUNTA($B$2:$B2))[/FORMULA]
+ Bạn Copy Code dưới đây chép vào File mau

Sub CapNhat()
    Dim wb As String
    wb = Application.GetOpenFilename("Excel Files (*.xls*), *.xls")
    With Workbooks.Open(wb)
        Sheets(1).Cells(1).CurrentRegion.Copy
        Sheet1.Range("A1").PasteSpecial
        .Close False
    End With
    Call abc
End Sub
Sub abc()
    Dim i, LR
    LR = Cells(Rows.Count, 6).End(3).Row
    Range("L2:L" & LR).FormulaR1C1 = "=IF(AND(RC[-10]=R[-1]C[-10],RC[-9]=R[-1]C[-9],RC[-8]=R[-1]C[-8],RC[-7]=R[-1]C[-7]),""Xoa"","""")"
    With Cells(1).CurrentRegion
        .AutoFilter 12, "Xoa"
        .Offset(1).Resize(, 5).ClearContents
        .AutoFilter
    End With
    Columns(12).ClearContents
End Sub

 

[Tuan_hcth]

+ Với File nguon, bạn thay cho tôi công thức:
[FORMULA]=IF(B2="","",COUNTA($B$2:$B2))[/FORMULA]
+ Bạn Copy Code dưới đây chép vào File mau

Sub CapNhat()
    Dim wb As String
    wb = Application.GetOpenFilename("Excel Files (*.xls*), *.xls")
    With Workbooks.Open(wb)
        Sheets(1).Cells(1).CurrentRegion.Copy
        Sheet1.Range("A1").PasteSpecial
        .Close False
    End With
    Call abc
End Sub
Sub abc()
    Dim i, LR
    LR = Cells(Rows.Count, 6).End(3).Row
    Range("L2:L" & LR).FormulaR1C1 = "=IF(AND(RC[-10]=R[-1]C[-10],RC[-9]=R[-1]C[-9],RC[-8]=R[-1]C[-8],RC[-7]=R[-1]C[-7]),""Xoa"","""")"
    With Cells(1).CurrentRegion
        .AutoFilter 12, "Xoa"
        .Offset(1).Resize(, 5).ClearContents
        .AutoFilter
    End With
    Columns(12).ClearContents
End Sub

Em chưa hiểu đoạn này:
Với File nguon, bạn thay cho tôi công thức:
[FORMULA]=IF(B2="","",COUNTA($B$2:$B2))[/FORMULA]

 

[phulien1902]

Em chưa hiểu đoạn này:
Với File nguon, bạn thay cho tôi công thức:
[FORMULA]=IF(B2="","",COUNTA($B$2:$B2))[/FORMULA]

Nghĩa là khi cột B có dữ liệu thì cột A mới đếm, mục đích có kết quả như yêu cầu của bạn