小编Bru*_*ce 的帖子

我正在尝试编写一个宏,它将遍历选定数量的工作表以隐藏每个工作表上的空行.在每个工作表的"A"列中包含1或0.如果它是0我想隐藏该行.

这是我从各个网站一起报废的代码.我最大的挑战是知道我需要操纵哪些物体.

enter code here
Public Sub HideRows()
Dim beginRow As Double
Dim endRow As Double
Dim ChkCol As Double
Dim RowCnt As Double
Dim ws As Worksheet
Dim ArrayOne As Variant
Dim InxW As Long

beginRow = 10
endRow = 185
ChkCol = 1

ArrayOne = Array("GB", "Adj. B", "Adj. F", "JC-Results", "PI-Results", "MK-Results", "TD-Results")


For InxW = LBound(ArrayOne) To UBound(ArrayOne)
    For RowCnt = beginRow To endRow
    If Cells(RowCnt, ChkCol).Value = 0 Then
        Cells(RowCnt, ChkCol).EntireRow.Hidden = True
    Else
        Cells(RowCnt, …