File excel tải từ hệ thống công ty

[fun.tiger]

Xin chào các bác
Mình có một file excel tải từ hệ thống làm việc của công ty mà mình không biết làm cách nào để cho nó tách từng dòng , cột riêng biệt được . Có thể có quá nhiều Merge . Xin các bác hướng dẫn giúp mình ạ .
Xin cảm ơn các bác nhiều ạ

 

[BuiQuangThuan]

Cụ thể là thế nào?

 

[fun.tiger]

Cụ thể là thế nào?

Là mình muốn tách từng hàng từng cột để dễ sort và sử dụng công thức ạ . Mà file mình tải về mình không thể làm được việc này . Mò mẫm mãi vẫn không được ạ . Mong bạn giúp đỡ

 

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

Xin chào các bác
Mình có một file excel tải từ hệ thống làm việc của công ty mà mình không biết làm cách nào để cho nó tách từng dòng , cột riêng biệt được . Có thể có quá nhiều Merge . Xin các bác hướng dẫn giúp mình ạ .
Xin cảm ơn các bác nhiều ạ

Bạn chạy code sau thử nhé:

Sub TrichLoc_HLMT()
    With CreateObject("ADODB.Recordset")
        .Open ("Select F1,F7,F11,F17,F20,F27,F31,F35 From [Sheet$B10:AJ] Where F1 Is Not Null"), "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0 Xml;HDR=No"""
        Sheet4.Range("A2").CopyFromRecordset .DataSource
    End With
End Sub

 

[87kilua]

Xem thử coi vừa ý chưa

 

[fun.tiger]

Xem thử coi vừa ý chưa

Xin cảm ơn bác thật nhiều nhé

Bài đã được tự động gộp: 31/8/22

Bạn chạy code sau thử nhé:

Sub TrichLoc_HLMT()
    With CreateObject("ADODB.Recordset")
        .Open ("Select F1,F7,F11,F17,F20,F27,F31,F35 From [Sheet$B10:AJ] Where F1 Is Not Null"), "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0 Xml;HDR=No"""
        Sheet4.Range("A2").CopyFromRecordset .DataSource
    End With
End Sub

Xin cảm ơn ạ , Nếu được có thể chỉ cách để mình add cái code này vào file cho nó chạy với ạ