检查跨过的单元格是否为空白，然后隐藏标题 vba

Question

我在 excel 中有一些数据，其中 B 列中的标题和 C 列中的数据，从第 2 行开始。在第 15 行，它可能有也可能没有数值。我的任务是检查从单元格 C15 到最后一列的末尾，可能是 F15，也可能是 Z15，如果它们是空白，我可以删除 B15，即该行的标题。

现在，我不能只检查第 15 行中的所有值是否为空白，因为我在单元格 B15 中有标题。我得到每周数据，这就是最后一列不同的原因。

我需要的是，如果我在第 15 行有数据，但不一样，我保留我的标题 B15，如果我没有任何数据或者我有相同的数据。我想删除我的标题，B15。

我写了一些 vba 代码，但它没有产生期望的结果。

Sub test()
Dim LR3, z As Long
Dim ws As Worksheet

Set ws = Worksheets("wc")


 LR3 = ws.Cells(2, Columns.Count).End(xlToLeft).Column
 For z = 3 To LR3
    'start position
    If ws.Cells(15, z).Value = ws.Cells(15, z + 1).Value Then
        ws.Cells(15, 2).Value = ""
     End If
  Next z
 End Sub

Answer 1

我不太了解你的任务，但我试图修复你的循环。因为我认为您想从 c 列开始遍历最后一行，对吗？

Option Explicit

Sub test()
    Dim LC3, z As Long
    Dim ws As Worksheet
    Dim startColumn As Integer
    Dim checkRow As Integer
    Dim headerColumn As Integer
    Dim allTheSame As Boolean
    Dim allEmpty As Boolean

    Set ws = Worksheets("wc")
    LC3 = ws.Cells(ws.UsedRange.Rows.Count, 2).End(xlToRight).Column
    startColumn = 3
    checkRow = 15
    headerColumn = 2

'    'if first column is blank delete the header
'    If ws.Cells(checkRow, startColumn).Value = "" Then
'        ws.Cells(checkRow, headerColumn).Value = ""
'        Exit Sub
'    End If
'
    allTheSame = True
    allEmpty = True

    For z = startColumn To LC3
        'if any column is blank delete the header
'        If ws.Cells(checkRow, z).Value = "" Then
'            ws.Cells(checkRow, headerColumn).Value = ""
'            'Exit For
'        End If
        'if one is not the same delete header
'        If z + 1 <= LC3 Then
'            If ws.Cells(checkRow, z).Value <> ws.Cells(checkRow, z + 1).Value Then
'                ws.Cells(checkRow, headerColumn).Value = ""
'                Exit For
'            End If
'        End If
        'if any column is blank delete the header
        If ws.Cells(checkRow, z).Value <> "" Then
            allEmpty = False
            'Exit For
        End If
        'if all are the same, delete header
        If z + 1 <= LC3 Then
            If ws.Cells(checkRow, z).Value <> ws.Cells(checkRow, z + 1).Value Then
                allTheSame = False
            End If
        End If
    Next z
    If allTheSame Or allEmpty Then
        ws.Cells(checkRow, headerColumn).Value = ""
    End If
End Sub

Answer 2

 If Application.Worksheetfunction.CountA("C" & z & ":Z" & z) = 0 then

'Row z has no entries between C and Z