как скрыть строки, которые не имеют данных в строке

Question

Public Sub caInvCompressRows(p_strInv As String)

Dim intRow As Integer
Dim intRowMch As Integer
Dim intCol As Integer
Dim bUsed As Boolean
Dim strTemp As String
Dim strSheet As String
Dim intSaveRow As Integer
strSheet = "cordINV-" & p_strInv
Call utlUnProtectSheet(strSheet, "alcatraz")
Sheets(strSheet).Select
Cells.Select
Rows.EntireRow.Hidden = False
Range("A1").Select
intRowMch = caINV_ROW_FIRST
While Cells(intRowMch, 1).Value <> "" Or Cells(intRowMch, 11).Value <> ""
    For intRow = intRowMch + 1 To intRowMch + 6
        If Cells(intRow, 1).Value = "" Then
            If Cells(intRow, 11).Value = "" Then
                Rows(intRow).EntireRow.Hidden = True
            End If
        End If
    Next intRow
    intRowMch = intRowMch + 9
Wend

End Sub

Я хочу скрыть строки, в которых нет данных, с помощью кнопки.каждая строка содержит три различные группы данных, которые изменяют, какие строки необходимо скрыть.все данные помещаются в столбцы C, O и AC, а остальные заполняются из этого.

Answer 1

Sub HideRows()
 If Range("d2").Value = "" Then
    If Range("r2").Value = "" Then
        If Range("af2").Value = "" Then

Строки ("2: 2"). CompleteRow.Hidden = True End If End If End If

End Sub

Answer 2

Эта формула проверяет, есть ли что-либо в строке 2, просто конкатенируя всю строку, обрезая результат, и проверяя, является ли она ничем иным, как пустой строкой:

=TRIM(TEXTJOIN("";FALSE;2:2))=""