Lọc các ô không rỗng sang 1 cột khác

[buioanhvn]

Dear all,
Em đang xử lý 1 file báo cáo nhưng lại gặp một vấn đề, đó là muốn lọc các ô không rỗng trong 1 cột sang 1 cột khác.
Ví dụ: bây giờ muốn trích các danh sách cụ thể a1,a2,a3,c1,c2,c3 sang 1 cột khác, cắt bỏ các ô trống do dòng total, thì sử dụng hàm gì ạ?
A____|__B__|
__a___ |__ a1_|
______|__a2__|
_______|_a3__|
_a Total _|____|
C_______ |__c1__|
________|_ c2__ |
________|__ c3__|
c Total__|______|

Rất mong anh chị giúp đỡ. Hôm nay chủ nhật mà em vẫn phải ở cơ quan đây.
Cám ơn anh chị rất nhiều.
Chúc anh chị kỳ nghỉ cuối tuần vui vẻ!

 

[dat2007]

Bạn tham khảo câu trả lời trong Topic này

Hoặc bạn gửi File và yêu cầu cụ thể lên thì mới có câu trả lời chính xác được

 

[phamduylong]

Dear all,
Em đang xử lý 1 file báo cáo nhưng lại gặp một vấn đề, đó là muốn lọc các ô không rỗng trong 1 cột sang 1 cột khác.
Ví dụ: bây giờ muốn trích các danh sách cụ thể a1,a2,a3,c1,c2,c3 sang 1 cột khác, cắt bỏ các ô trống do dòng total, thì sử dụng hàm gì ạ?

Có phải ý bạn như thế này không?
A1,A2, A5, A6, A10, A12 có dữ liệu, xóa các ô trống trong cột A thì:
- A5 > A3
- A6 > A4
- A10 > A5
- A12 > A6
Tức là các ô có dữ liệu trong cột A sẽ dồn lên các ô trống.
Nếu như vậy, bạn làm như sau:
1. Chọn cột A
2. Menu Edit > Goto > Special... > Blanks. Excel sẽ chọn tất cả các ô trống trong cột A
3. Menu Edit > Delete ... > Shift cells up

 

[SA_DQ]

To PhamDuyLong: Hình như í tác gia là muốn Copy sang cột khác, sau đó mới xóa các ô trống trong cột
Nếu đúng theo mình hiểu thì bạn BuiOanhVN có thể cải biên đoạn mã sau để xài:

Option Explicit

Sub OnlyValue()
1 '    Range("b:b").Select
    Selection.Copy Destination:=Range("E1")
    Range("E:E").Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.Delete Shift:=xlUp
    Range("E1").Select
End Sub

Ghi chú:
Dòng lệnh 1 đang bị vô hiệu; Để khỏi báo lỗi trước khi chạy macro hãy chọn cột mà bạn cần xử lí các ô rỗng;
Cần thiết cũng phải sửa địa chỉ đích chép đến;

Chúc bạn BuiOanhVN tuần làm việc hiệu quả ! .. . ;