Во-первых, я пробовал эти темы, но безрезультатно (1, 2 и другие, о которых мне запрещено упоминать, так как мой ранг не допускает более двух ссылок). Я почти уверен, что мне не хватает некоторых простых деталей.

  1. Что я хотел бы сделать, так это автоматически прочесать столбец A (если точнее, A2:A25) и, если ячейка пуста, просто спрятать всю соответствующую строку.

  2. Еще лучше было бы скрыть только соответствующую E-клетку и оставить остальную часть ряда нетронутой.

Заранее спасибо!

2 ответа2

0

Вы можете использовать специальные ячейки, например.

Sub Button1_Click()
    Range("A2:A25").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End Sub

Вы можете скрыть всю строку, вы не можете скрыть только по ячейке в столбце.

0

Попробуйте этот код. Он зациклится на A2:A25 (дайте мне знать, если этот диапазон может измениться, и я могу сделать это более гибким) и скрою пустую строку любой ячейки в этом диапазоне. Я не знаю простой способ скрыть отдельные клетки, не имеет ли это смысла для меня. Если у вас есть таблица данных, ничто не будет совпадать со строкой, по крайней мере визуально.

Sub Hide_Rows()
Dim i As Integer
For i = 25 To 2 Step -1
If Range("A" & i) = "" Then
   Rows(i).Hidden = True
End If
Next i
End Sub

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .