Как да проверя дали редът е скрит в Excel?
Тази статия говори за проверка дали редът е скрит в определен диапазон или работен лист в Excel.
Проверете дали редът е скрит в избрания диапазон с VBA код
Проверете дали редът е скрит в работен лист с VBA код
Проверете дали редът е скрит в избрания диапазон с VBA код
Моля, направете следното, за да проверите дали редовете са скрити в избран диапазон и да намерите номера на скрития ред.
1. Изберете диапазона, който ще проверявате за скрити редове. Натисни Друг + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
2. В Microsoft Visual Basic за приложения прозорец, кликнете Поставете > Модули. След това копирайте по-долу VBA кода в прозореца на кода.
VBA код: проверете за скрити редове в избрания диапазон
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 Sub3. Натисни F5 ключ за изпълнение на кода.
Тогава Microsoft Excel изскача диалогов прозорец, за да ви покаже скритите редове, както е показано на екранната снимка по-долу.
Проверете дали редът е скрит в работен лист с VBA код
Кодът VBA по-долу може да ви помогне да проверите за скрити редове в работен лист в Excel. Моля, направете следното.
1. Отворете работния лист, който трябва да проверите за скрити редове, натиснете Друг + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
2. В Microsoft Visual Basic за приложения прозорец, кликнете Поставете > Модули. След това копирайте по-долу VBA кода в прозореца на кода.
VBA код: проверете дали редът е скрит в работния лист
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 Sub3. Натисни F5 ключ за изпълнение на кода.
Тогава Microsoft Excel изскача диалогов прозорец, за да ви покаже скритите редове в текущия работен лист, както е показано на екранната снимка по-долу.
Забележка: Ако сега съществуват скрити редове в избран диапазон или работен лист, ще получите диалоговия прозорец, както е показано на екранната снимка по-долу.
Още по темата:
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
