Hỏi về code xóa các cột không có dữ liệu? (1 người xem)

[KUMI]

Xin chào mọi người!
Mọi người xem giúp em trường hợp này với ạ!
Trong file đính kèm em có một vùng dữ liệu: (D9:J29)
và một dòng mã số : (D10:J10)
Em muốn làm thế nào để khi bấm vào nút (5S) thì trong dòng (D10:J10) nếu dòng nào không có dữ liệu thì cột đó sẽ bị xóa hoặc ẩn.
Mong mọi người giúp đỡ ạ!
Chân thành cám ơn!

 

[KUMI]

Hihi!
Em làm được rồi ạ! Cám ơn mọi người!

 

[KUMI]

Hihi!
Em làm được rồi ạ! Cám ơn mọi người!

Xin hỏi các chuyên gia dòng ghi lệnh dưới đây:

    Range("D10:J10").Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.EntireColumn.Hidden = True

có thế thay thế bằng dòng lệnh nào ngắn gọn đơn giản,đẹp mắt và hiệu quả không ạ! hihi...

 

[ndu96081631]

Xin hỏi các chuyên gia dòng ghi lệnh dưới đây:

    Range("D10:J10").Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.EntireColumn.Hidden = True

có thế thay thế bằng dòng lệnh nào ngắn gọn đơn giản,đẹp mắt và hiệu quả không ạ! hihi...

Thì bỏ mấy cái Select đi

    Range("D10:J10").SpecialCells(4).EntireColumn.Hidden = True

 

[KUMI]

Đấy đấy đúng rồi Thầy ạ!
Em cũng đang muốn hỏi cái trong ngoặc (xlCellTypeBlanks)
khi thay bằng số được... (4)hay thật,
vì có lần lần em cũng đọc thấy bài viết kiểu này của Thầy thì phải.
Xin hỏi thêm Thầy ngoài ý số 4 ra còn các số nào cho vấn đề (SpecialCells)?
Nếu còn thì Thầy chỉ thêm cho em với ạ. Và ý nghĩa của các số Thầy nhé!
Em Cảm ơn Thầy nhiều ạ!

 

[ndu96081631]

Đấy đấy đúng rồi Thầy ạ!
Em cũng đang muốn hỏi cái trong ngoặc (xlCellTypeBlanks)
khi thay bằng số được... (4)hay thật,
vì có lần lần em cũng đọc thấy bài viết kiểu này của Thầy thì phải.
Xin hỏi thêm Thầy ngoài ý số 4 ra còn các số nào cho vấn đề (SpecialCells)?
Nếu còn thì Thầy chỉ thêm cho em với ạ. Và ý nghĩa của các số Thầy nhé!
Em Cảm ơn Thầy nhiều ạ!

Mở hộp Special Cells lên (bấm F5)... nhìn và đoán thử xem (thứ tự từ trên xuống)
Đoán xong, ta thí nghiệm để kiểm chứng
Mấy trò này cần gì phải dạy
Ẹc... ẹc...

 

[KUMI]

Mở hộp Special Cells lên (bấm F5)... nhìn và đoán thử xem (thứ tự từ trên xuống)
Đoán xong, ta thí nghiệm để kiểm chứng
Mấy trò này cần gì phải dạy
Ẹc... ẹc...

Em cảm ơn Thầy!
Thế mà cái này người như Em lại cần dạy đấy ạ!Có lẽ chắc chỉ có mình em.Híc!