Xử lý danh sách với đầy đủ thông tin

[ltv_ngocphuoc]

Em là thành viên mới mong các bác giúp đỡ. Em có 2 sheet là sheet 1 và sheet 2 gồm tên, số đt, địa chỉ của từng người (có thể trùng nhau) giờ em muốn tạo sheet 3 là gộp tổng của 2 sheet trên mà ko có tên nào bị trùng. Mong các bác giúp đỡ. Em gửi file đính kèm ở dưới. Thanks

 

[sealand]

Mình làm bằng Pivot Table bạn xem có được không

 

[ndu96081631]

Em là thành viên mới mong các bác giúp đỡ. Em có 2 sheet là sheet 1 và sheet 2 gồm tên, số đt, địa chỉ của từng người (có thể trùng nhau) giờ em muốn tạo sheet 3 là gộp tổng của 2 sheet trên mà ko có tên nào bị trùng. Mong các bác giúp đỡ. Em gửi file đính kèm ở dưới. Thanks

Thử code này xem:

Sub Test()
  Sheet3.Range("A1:C1000").Clear
  With Sheet1.Range("A28").CurrentRegion.Offset(1)
    .Copy
    With Sheet2.Range("A1").CurrentRegion
      .Offset(.Rows.Count)(1, 1).PasteSpecial
      With Sheet2.Range("A1").CurrentRegion
        .AdvancedFilter 2, , Sheet3.Range("A1"), True
      End With
      With .Offset(.Rows.Count)
        Range(.Cells, .End(xlDown)).Clear
      End With
    End With
  End With
End Sub

 

[hoangmai2605]

Sub Test()
    With Sheet1.Range("A28").CurrentRegion.Offset(1)
    .Copy
    With Sheet2.Range("A1").CurrentRegion
      .Offset(.Rows.Count)(1, 1).PasteSpecial
      With Sheet2.Range("A1").CurrentRegion
        .AdvancedFilter 2, , Sheet3.Range("A1"), True
      End With
      With .Offset(.Rows.Count)
        Range(.Cells, .End(xlDown)).Clear
      End With
    End With
  End With
End Sub

Thấy bạn chỉ đoạn code này rất hay, nhưng vì là người mới mày mò lập trình excel nên mình chưa hiểu. Mong bạn giải thích giúp đoạn code trên. Cám ơn bạn nhiều

 

[ndu96081631]

Thấy bạn chỉ đoạn code này rất hay, nhưng vì là người mới mày mò lập trình excel nên mình chưa hiểu. Mong bạn giải thích giúp đoạn code trên. Cám ơn bạn nhiều

Quy trình như sau:
- Copy dử liệu sheet1 vào dòng cuối cùng có dử liệu của sheet2
- Từ dử liệu mới tại sheet2, dùng Advanced Filter lọc danh sách duy nhất sang sheet3
- Xóa dử liệu đã copy sang sheet2 khi nảy
Vậy thôi

 

[ltv_ngocphuoc]

Thử code này xem:

Sub Test()
  Sheet3.Range("A1:C1000").Clear
  With Sheet1.Range("A28").CurrentRegion.Offset(1)
    .Copy
    With Sheet2.Range("A1").CurrentRegion
      .Offset(.Rows.Count)(1, 1).PasteSpecial
      With Sheet2.Range("A1").CurrentRegion
        .AdvancedFilter 2, , Sheet3.Range("A1"), True
      End With
      With .Offset(.Rows.Count)
        Range(.Cells, .End(xlDown)).Clear
      End With
    End With
  End With
End Sub

Thanks alot. Mình đã làm được rồi. Cám ơn bác nhiều nhé.

 

[Hai Lúa Miền Tây]

Thanks alot. Mình đã làm được rồi. Cám ơn bác nhiều nhé.

Xin lỗi các bạn xin spam 1 tí,
Lần sau nếu muốn cám ơn người nào đó bạn nên click vào nút cám ơn ở phía dưới bên phải bài viết của người trả lời, vừa nhanh, vừa khỏi tốn công đánh máy, vừa ghi nhận lại sự biết ơn đối với người giúp đỡ mình
Thân

 

[ltv_ngocphuoc]

Hì em là thành viên mới mà. Rút kinh nghiệm lần sau