Một số vấn đề cần tư vấn giải quyết (1 người xem)

[Van Thai Su]

Mình gặp 1 bài toán hơi khó 1 chút đó là:
1/ Sau khi nhập liệu, nó sẽ tổng hợp 1 phần danh sách dài và có những dòng trống (cái này mình tách thành 1 dạng sheet đơn giản). Mình muốn ẩn các dòng trống đó đi (tự động thì phải làm thế nào)? Đã nghiên cứu 1 số bài viết nhưng ẩn 1 dòng thì được còn ẩn nhiều dòng thì ko biết cách giải.

Phương án đang suy nghĩ: Cho 1 ô đếm (G3, giả sử giá trị G3 = 12 thì bảng xuất ra chỉ có 12 dòng có dữ liệu, các dòng còn lại trống). Đề bài là ẩn đi các dòng trống (trong sheet ví dụ là dòng 18, 19, 20 (tương ứng với TT là 13, 14 & 15).

2/ Copy + paste tự động value của bảng tính sang 1 file khác.
Cái này kiểu sau khi làm hàm lọc VLOOKUP, HLOOKUP thì copy value trong bảng tính sang 1 sheet của 1 file khác, ở đây thì đúng là ko biết làm sao.

2 đề xuất giúp đỡ có vẻ dài dòng chẳng qua chỉ là giải trình cho a chị e nào giúp đỡ hiểu thêm ý đồ. Hy vọng đc sự hỗ trợ giúp đỡ của a chị e hảo tâm. Thú thực cái này dùng để ghi-xuất giá trị hàng xây dựng theo tháng mà viết tay xong ngồi thống kê ra thì nhiều quá làm ko nổi (mình làm đề-bô gia đình).

 

[Van Thai Su]

Quên file đính kèm, đây là file đơn giản cho dễ chứ đưa cái file xuất-nhập dài lên làm a chị e tốn công đoạn gom thủ công.

 

[phucbugis]

Quên file đính kèm, đây là file đơn giản cho dễ chứ đưa cái file xuất-nhập dài lên làm a chị e tốn công đoạn gom thủ công.

vấn đề ko phải ở đây,
mà là tiêu đề bạn đặt chưa đúng --> bài của bạn có thể sẽ bị khóa , bị xóa !!!

 

[SA_DQ]

Bạn tham khảo cái ni trước khi topic về cõi vĩnh hằng

Option Explicit
Sub gpeAnDong()
 Dim Rws As Long
 Dim Rng As Range, Cls As Range
  
 Rws = [C6].CurrentRegion.Rows.Count
 Set Rng = [C5].Resize(Rws).SpecialCells(xlCellTypeBlanks)
 For Each Cls In Rng
    Cls.EntireRow.Hidden = True
 Next Cls
End Sub

,,,,,