Gộp 2 cột dữ liệu thành 1, sắp xếp theo Alphabet

[chinhphuc]

Xin chỉ giáo. Thanks

 

[Ba Tê]

Ghi lại macro giống như khi bạn làm thủ công:
Copy cột F sang cột B
Copy cột H nối tiếp vào cột B
Sort cột B từ nhỏ đến lớn.

Public Sub GPE()
With Sheet1
    .[B3:B65536].Clear
    .Range(.[F3], .[F65536].End(xlUp)).Copy .[B3]
    .Range(.[H3], .[H65536].End(xlUp)).Copy .[B65536].End(xlUp).Offset(1)
    .Range(.[B3], .[B65536].End(xlUp)).Sort Key1:=.[B3]
End With
End Sub

 

[chinhphuc]

Code bác Ba Tê viết gọn gàng, đẹp quá. Không giống với code ghi macro thủ công.
Em có 1 vấn đề gặp phải là dữ liệu của em được hình thành từ công thức, ko phải dữ liệu thô. Khi chạy, đoạn code trên chỉ chép công thức nên chưa cho ra được kết quả. Mọi người xin sửa giúp. Thanks

 

[Ba Tê]

Code bác Ba Tê viết gọn gàng, đẹp quá. Không giống với code ghi macro thủ công.
Em có 1 vấn đề gặp phải là dữ liệu của em được hình thành từ công thức, ko phải dữ liệu thô. Khi chạy, đoạn code trên chỉ chép công thức nên chưa cho ra được kết quả. Mọi người xin sửa giúp. Thanks

Nếu vậy thì Copy và Paste Value, xong thì Sort

Public Sub GPE()
Application.ScreenUpdating = False
With Sheets("DataTien")
    .[B7:B65536].Clear
    .Range(.[T7], .[T65536].End(xlUp)).Copy
    .[B7].PasteSpecial Paste:=xlPasteValues
    .Range(.[ab7], .[ab65536].End(xlUp)).Copy
    .[B65536].End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues
    .Range(.[B7], .[B65536].End(xlUp)).Sort Key1:=.[B7]
    .[B7].Select
End With
End Sub