Excel vba循环遍历列并根据单元格值隐藏

Question

在工作表的 F 列和 BM 列之间，如果这些列中的任何值等于“NULL”，则不要隐藏，否则隐藏该列，之前的列和之后的列。循环应该从 G 列开始每隔 3 次评估一次，并在 BM 列结束。

例如，如果 G 列包含值“NULL”，则不执行任何操作并转到 J 列（向前三列）。如果列 J 现在没有值为 NULL 的单元格，则隐藏该列、之前的列（列 I）和之后的列（列 K）。

这就是我遇到的麻烦。我可以根据列是否包含值 NULL 来隐藏列。

这是我尝试过的代码变体。

Sub SuspenseReport()

Dim allColumns As Range
Dim cell As Range
Dim col As Range
Dim x As Integer
Dim i As Integer
Application.ScreenUpdating = False

Set allColumns = Columns("C:E")
allColumns.Hidden = True

Set allColumns = Columns("BN:DY")
allColumns.Hidden = True

Set allColumns = Columns("EB:EU")
allColumns.Hidden = True

Dim rng1 As Range: Set rng1 = Application.Range("G2:BO8") 'maybe limit the range to just one column and range.offet at the end?


For Each col In rng.Columns 
        If cell.Value = "NULL" Then
            cell.EntireColumn.Hidden = False
            GoTo ExitIfStat

         Else: cell.EntireColumn.Hidden = True


        End If
    Next col
ExitIfStat:
Next x
'below is another variation I attempted but the for loop would iterate on cell not column 
'Dim i As Integer
'i = -1
'For Each col In Range("G1:BO8")
   '     i = i + 1
     '   If i Mod 3 = 0 Then
      '      If col.Value = "NULL" Then
      '          col.EntireColumn.Hidden = False

     '      Else: col.EntireColumn.Hidden = True
                    'col.Offset(0, -1).EntireColumn.Hidden = True
                   'col.Offset(0, 1).EntireColumn.Hidden = True

       '    End If



Application.ScreenUpdating = True

End Sub

Answer 1

可能是这样的：

Sub HideColumnWithoutNullString()

    Dim range, colCount, rowCount, hasNull, rowsToCheck

    Dim firstColumn, currentColumn, lastColumn

    Set range = Application.range("G:BM")

    firstColumn = range.Columns(0).Column

    lastColumn = range.Columns(range.Columns.Count).Column

    currentColumn = 0

    rowsToCheck = 1


    For colCount = firstColumn To lastColumn Step 1

        hasNull = False

        For rowCount = 1 To range.Rows.Count Step 1

            If Application.Cells(rowCount, colCount).Value = "NULL" Then

                hasNull = True

                Exit For

            End If

            If rowCount >= rowsToCheck Then
                Exit For
            End If

        Next

        If Not hasNull Then
            range.Columns(currentColumn).Hidden = True
        Else
            range.Columns(currentColumn).Hidden = False
        End If

        currentColumn = currentColumn + 1

    Next

End Sub

其中 rowsToCheck 是脚本必须在每列上检查“NULL”的行数，如果它只需要检查第一行，则将其值设置为 1。

Answer 2

这与 Octavio 的回答遵循相同的逻辑，但将检查空列或“NULL”的值。

    Sub SuspenseReport()
    Dim col As Range
    Application.ScreenUpdating = False
    Set Rng = Application.Range("G2:BO8") 
    vLr = ActiveCell.SpecialCells(xlLastCell).Row
    For Each col In Rng.Columns
        vFlag = False
        For vrow = 2 To vLr
            vX = Cells(vrow, col.Column).Value
            If vX = "" Or vX = "NULL" Then
                vFlag = True
            End If
        Next
        If vFlag Then
            col.EntireColumn.Hidden = False
        Else
            col.EntireColumn.Hidden = True
        End If
    Next col
    Application.ScreenUpdating = True
    End Sub