Nhờ các thầy giúp đỡ: cách ẩn hoặc xoá các cột theo điều kiện cho trước (1 người xem)

[nockout159]

Chào các thầy ạ
Em có 1 dòng dữ liệu chỉ gồm số 0 và 1(file đính kèm), bây giờ em muốn ẩn hoặc xóa tất cả các cột có giá trị bằng 0 đi thì làm bằng cách nào được ạ. ( không phải bằng cách chọn từng cột xong hide hay delete ạ )
Em xin cảm ơn ạ!

 

[nghiaphuc]

Chào các thầy ạ
Em có 1 dòng dữ liệu chỉ gồm số 0 và 1(file đính kèm), bây giờ em muốn ẩn hoặc xóa tất cả các cột có giá trị bằng 0 đi thì làm bằng cách nào được ạ. ( không phải bằng cách chọn từng cột xong hide hay delete ạ )
Em xin cảm ơn ạ!

Ẩn cột thì thế này:
[GPECODE=vb]Sub HideCols()
Dim Cll As Range
For Each Cll In Intersect(Sheets("Sheet1").[A1].CurrentRegion, Sheets("Sheet1").[1:1])
Cll.EntireColumn.Hidden = (Cll = 0)
Next
End Sub[/GPECODE]

 

[tranminhtien_1984]

Mình muốn lấy dữ liệu từ sheet nay sang sheet khac. VD Dữ liệu điểm ở phòng thi sang

Mình muốn lấy dữ liệu từ sheet nay sang sheet khac. VD Dữ liệu điểm ở phòng thi sáng từng lớp

 

[TrungChinhs]

Chào các thầy ạ
Em có 1 dòng dữ liệu chỉ gồm số 0 và 1(file đính kèm), bây giờ em muốn ẩn hoặc xóa tất cả các cột có giá trị bằng 0 đi thì làm bằng cách nào được ạ. ( không phải bằng cách chọn từng cột xong hide hay delete ạ )
Em xin cảm ơn ạ!

Bạn làm như sau:
1. Chọn toàn bộ dòng 1
2. Replace 0 thành rỗng (trong Find what nhập 0 trong Replace With bỏ trống)
3. Nhấn phím F5 chọn Special... -> chọn Blanks -> OK
4. Lúc này xóa hay ẩn cột tùy bạn.

 

[nockout159]

Ẩn cột thì thế này:
[GPECODE=vb]Sub HideCols()
Dim Cll As Range
For Each Cll In Intersect(Sheets(

 

[Quang_Hải]

Em làm được rồi ạ, e cảm ơn 2 thầy ạ

Nhớ thêm cặp lệnh chống giật màn hình

Sub HideCols()
Application.ScreenUpdating = False
Dim Cll As Range
For Each Cll In Range("B1", [AAA1].End(1))
    Cll.EntireColumn.Hidden = (Cll = 0)
Next
Application.ScreenUpdating = True
End Sub

Nếu đã ẩn thì phải có lúc cần hiện ra

Sub UnHide()
Rows("1:1").EntireColumn.Hidden = False
End Sub