Nhờ giúp đỡ code copy duy nhất và đảo chiều 2 cột

Chia sẻ bởi:hands

★★★★★

‹ Làm thế nào thay đổi đường dẫn... Hỗ trợ copy cụm dữ liệu (dòng... ›

Quảng cáo

Chào các bác!

Em đang có một bài toán cần copy các cặp duy nhất và đảo chiều, nhờ các bác giúp em một code để thực hiện thao tác này với ạ
Cụ thể dữ liệu như bảng 1 và kết quả như bảng 2 như trong tệp đính kèm ạ
Em cảm ơn ạ!

Bạn thử code sau nhé:

Sub LayMa()
     With CreateObject("ADODB.Connection")
        .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0 Xml;HDR=NO"""
        Sheet1.Range("H3").CopyFromRecordset .Execute("Select Distinct F1,F2 From [Sheet1$A3:B] Where F1 Is Not Null Union All Select Distinct F2,F1 From [Sheet1$A3:B] Where F1 Is Not Null")
    End With
End Sub

Hoặc:

Sub LayMa1()
     With CreateObject("ADODB.Connection")
        .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0 Xml;HDR=NO"""
        Sheet1.Range("H3").CopyFromRecordset .Execute("Select F1, F2 From [Sheet1$A3:B] Where F1 Is Not Null Union Select F2, F1 From [Sheet1$A3:B] Where F1 Is Not Null")
    End With
End Sub

www.giaiphapexcel.com/diendan/threads/nh%E1%BB%9D-gi%C3%BAp-%C4%91%E1%BB%A1-code-copy-duy-nh%E1%BA%A5t-v%C3%A0-%C4%91%E1%BA%A3o-chi%E1%BB%81u-2-c%E1%BB%99t.166228/