Copy có điều kiện

[TRA KHUC RIVER]

Em muốn copy file này từ sheet 1 sang sheet 2 với điều kiện những cột nào trùng thì chỉ chọn 1. Rất mong mọi người giúp đỡ.

 

[iVBA]

Em muốn copy file này từ sheet 1 sang sheet 2 với điều kiện những cột nào trùng thì chỉ chọn 1. Rất mong mọi người giúp đỡ.

Bạn xem có đúng ý bạn không nha!

Option Explicit
Sub copy_dl()
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Dim eR1 As Long, eR2 As Long, i As Long
    Application.ScreenUpdating = False
    Set ws1 = Sheets("Sheet1")
    Set ws2 = Sheets("Sheet2")
    ws2.Range("A6:C65535").ClearContents
    eR1 = ws1.Cells(Cells.Rows.Count, "A").End(xlUp).Row
    ws1.Range("A6:C" & eR1).Copy ws2.Range("A6")
    With ws2
        eR2 = .Cells(Cells.Rows.Count, "C").End(xlUp).Row
          For i = eR2 To 6 Step -1
            If .Range("C" & i) = .Range("C" & i - 1) Then
                .Range("C" & i) = ""
            End If
          Next
    End With
    Set ws1 = Nothing
    Set ws2 = Nothing
    Application.ScreenUpdating = True
End Sub

 

[TRA KHUC RIVER]

Cảm ơn bạn đã giúp đỡ, nhưng trong sheet 2 có những dòng trắng ý mình muốn chỉ xuất hiện những dòng có giá trị

 

[Ba Tê]

Cảm ơn bạn đã giúp đỡ, nhưng trong sheet 2 có những dòng trắng ý mình muốn chỉ xuất hiện những dòng có giá trị

Cái này dùng Advanced Filter là nhanh nhất.
Nếu làm biếng thì cho nó vào một cái nút bấm.
Bấm một phát vào nút <Copy Duy Nhat> trong Sheet2 là xong.

 

[ndu96081631]

Tôi thấy các bạn làm mỗi người mỗi cách mà tác giả thì chẳng có ý kiến gì
Phải nói rõ:
- DUY NHẤT chỉ xét trên cột C hay DUY NHẤT trên toàn bộ dữ liệu? ---> 2 cái khác nhau nha!
- Kết quả lọc thế nào là đúng ý tác giả?

 

[Ba Tê]

Tôi thấy các bạn làm mỗi người mỗi cách mà tác giả thì chẳng có ý kiến gì
Phải nói rõ:
- DUY NHẤT chỉ xét trên cột C hay DUY NHẤT trên toàn bộ dữ liệu? ---> 2 cái khác nhau nha!
- Kết quả lọc thế nào là đúng ý tác giả?

Tôi thấy tác giả yêu cầu thế này, chắc là duy nhất theo cột C:

 

[ndu96081631]

Tôi thấy tác giả yêu cầu thế này, chắc là duy nhất theo cột C:
View attachment 56075

Vậy bạn thử nói xem: Cách của bạn làm là đúng hay cách của iVBA là đúng?
Riêng tôi thì... hổng có biết

 

[Ba Tê]

Vậy bạn thử nói xem: Cách của bạn làm là đúng hay cách của iVBA là đúng?
Riêng tôi thì... hổng có biết

Đây chỉ là một cách làm, xài hay không chỉ có tác giả quyết định.
Ai đúng tôi không hề khẳng định, hay là do câu này:

Cái này dùng Advanced Filter là nhanh nhất.
Nếu làm biếng thì cho nó vào một cái nút bấm.
Bấm một phát vào nút <Copy Duy Nhat> trong Sheet2 là xong.

Nếu quá rắc rối tôi xin sửa lại ý kiến như sau:

Xin góp thêm một cách dùng Advanced Filter,
Nếu làm biếng thì cho nó vào một cái nút bấm.
Bấm một phát vào nút <Copy Duy Nhat> trong Sheet2 là xong, nếu không đúng ý Bạn thì "Đừng quan tâm" nhé!

 

[ndu96081631]

Đây chỉ là một cách làm, xài hay không chỉ có tác giả quyết định.
Ai đúng tôi không hề khẳng định, hay là do câu này:

Nếu quá rắc rối tôi xin sửa lại ý kiến như sau:

Tôi không nghĩ rằng bài này thuộc dạng RẮC RỐI
Cái RỐI nhất là hổng nghe tác giả nói gì mà chỉ bấm CẢM ƠN ---> Cũng hay nhỉ?

 

[TRA KHUC RIVER]

Bác NDU ơi máy tính em mấy nay bị cháy ổ cứng mất hết dữ liệu nên không vào được. Ý em là với file trên mình copy sang sheet khác những spool number nào trùng thì chỉ nhận 1 giá trị. Bác giúp em với