Xin chỉ giúp CODE paste giá trị nguyên 1 sheet và sau đó xóa tất cả các dòng bị ẩn (1 người xem)

[raisoldier]

Xin chào anh chị, em trình bày vấn đề em như sau:
em có 1 sheet excel gồm nhiều dòng cột. Trong đó, có những dòng cột đang HIDE, nếu muốn copy và gán giá trị em phải bung ra hết (không hiểu sao nếu để dòng cột HIDE thì sẽ không copy và paste value được (thông báo lỗi ... same side ...). Mục đích của em là copy và paste giá trị tất cả các dòng cột đang hiện và xóa tất cả dòng cột đang ẩn. Nên em mong anh chị chỉ giúp em:
- copy paste giá trị sheet bằng CODE (em nghĩ sẽ hạn chế được lỗi ( .... same side ...) em nói trên
- xóa tất cả các dòng cột đang ẩn mà không cần Unhide và xóa thủ công từng hàng
Em cảm ơn

 

[nghiaphuc]

Xin chào anh chị, em trình bày vấn đề em như sau:
em có 1 sheet excel gồm nhiều dòng cột. Trong đó, có những dòng cột đang HIDE, nếu muốn copy và gán giá trị em phải bung ra hết (không hiểu sao nếu để dòng cột HIDE thì sẽ không copy và paste value được (thông báo lỗi ... same side ...). Mục đích của em là copy và paste giá trị tất cả các dòng cột đang hiện và xóa tất cả dòng cột đang ẩn. Nên em mong anh chị chỉ giúp em:
- copy paste giá trị sheet bằng CODE (em nghĩ sẽ hạn chế được lỗi ( .... same side ...) em nói trên
- xóa tất cả các dòng cột đang ẩn mà không cần Unhide và xóa thủ công từng hàng
Em cảm ơn

Gợi ý cho bạn một số chỗ sau khi viết code thực hiện yêu cầu của bạn:
- Rng.SpecialCells(xlCellTypeVisible) là các ô hiện ở trong vùng Rng.
- Cll.EntireColumn.Hidden = True có nghĩa là cột chứa ô Cll đang bị ẩn.
- Cll.EntireRow.Hidden = True có nghĩa là dòng chứa ô Cll đang bị ẩn.