Làm thế nào để kiểm tra xem hàng có bị ẩn trong Excel hay không?
Bài viết này nói về việc kiểm tra xem hàng có bị ẩn trong một phạm vi được chỉ định hoặc một trang tính trong Excel hay không.
Kiểm tra xem hàng có bị ẩn trong dải ô đã chọn hay không bằng mã VBA
Kiểm tra xem hàng có bị ẩn trong trang tính có mã VBA không
Kiểm tra xem hàng có bị ẩn trong dải ô đã chọn hay không bằng mã VBA
Vui lòng làm như sau để kiểm tra xem các hàng có bị ẩn trong một phạm vi đã chọn hay không và tìm số hàng bị ẩn.
1. Chọn phạm vi bạn sẽ kiểm tra các hàng ẩn. Nhấn nút Khác + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. bên trong Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp Chèn > Mô-đun. Sau đó sao chép mã VBA bên dưới vào cửa sổ mã.
Mã VBA: kiểm tra các hàng ẩn trong phạm vi đã chọn
Sub HiddenRowsInRange()
'Update by Extendoffice 2018/5/15
Dim I As Long
Dim xStr As String
Dim xOne, xTwo As Long
Dim xRg, xRgVsb, xRgItem As Range
On Error Resume Next
Set xRg = Range("A1:A100")
Set xRgVsb = xRg.SpecialCells(xlCellTypeVisible)
If xRg.Count <> xRgVsb.Count Then
For I = 1 To xRgVsb.Areas.Count - 1
Set xRgItem = xRgVsb.Areas.Item(I)
xOne = xRgItem.Rows(xRgItem.Rows.Count).Row
xTwo = xRgVsb.Areas.Item(I + 1).Rows(1).Row
xStr = xStr & Str(xOne + 1) & " --" & Str(xTwo - 1) & ","
Next
xStr = Left(xStr, Len(xStr) - 1)
MsgBox "Hidden rows in selected range are:" & xStr
Else
MsgBox "No rows hidden"
End If
End Sub
3. Nhấn nút F5 phím để chạy mã.
Sau đó một Microsoft Excel hộp thoại bật lên để hiển thị cho bạn các hàng ẩn như hình ảnh chụp màn hình bên dưới.
Kiểm tra xem hàng có bị ẩn trong trang tính có mã VBA không
Mã VBA dưới đây có thể giúp bạn kiểm tra các hàng ẩn trong trang tính trong Excel. Hãy làm như sau.
1. Mở trang tính bạn cần kiểm tra các hàng ẩn, nhấn Khác + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. bên trong Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp Chèn > Mô-đun. Sau đó sao chép mã VBA bên dưới vào cửa sổ mã.
Mã VBA: kiểm tra xem hàng có bị ẩn trong trang tính không
Sub HiddenRowsInSheet()
'Update by Extendoffice 2018/5/15
Dim I As Long
Dim xStr As String
Dim xOne, xTwo As Long
Dim xRg, xRgVsb, xRgItem As Range
On Error Resume Next
Set xRg = ActiveSheet.UsedRange
Set xRgVsb = xRg.SpecialCells(xlCellTypeVisible)
Debug.Print xRgVsb.Address
If xRg.Count <> xRgVsb.Count Then
For I = 1 To xRgVsb.Areas.Count - 1
Set xRgItem = xRgVsb.Areas.Item(I)
xOne = xRgItem.Rows(xRgItem.Rows.Count).Row
xTwo = xRgVsb.Areas.Item(I + 1).Rows(1).Row
xStr = xStr & Str(xOne + 1) & " --" & Str(xTwo - 1) & ","
Next
xStr = Left(xStr, Len(xStr) - 1)
MsgBox "Hidden rows in active sheet are:" & xStr
Else
MsgBox "No rows hidden"
End If
End Sub
3. Nhấn nút F5 phím để chạy mã.
Sau đó một Microsoft Excel hộp thoại bật lên để hiển thị cho bạn các hàng ẩn trong trang tính hiện tại như hình ảnh chụp màn hình bên dưới.
Chú thích: Nếu bây giờ các hàng ẩn tồn tại trong phạm vi hoặc trang tính đã chọn, bạn sẽ nhận được hộp thoại như hình minh họa bên dưới.
Các bài liên quan:
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều
- Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
- Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
- Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!