Excel VBA，for循环忽略隐藏行答案

【问题标题】：Excel VBA, for loop ignore hidden rowsExcel VBA，for循环忽略隐藏行
【发布时间】：2016-08-12 02:13:37
【问题描述】：

基本上，它的作用是检查 ws2 中 column = "Update" 的每一行，然后提取特定列数据并将其扔到 ws1 中的相应单元格中。第一次实施时，一切运行顺利，现在由于某种原因需要一些时间才能完成。

Dim LastRow As Long, CurRow As Long, DestRow As Long, DestLast As Long
Dim checkstatus As String
Dim ws1 As Worksheet, ws2 As Worksheet

Set ws1 = Sheets("Dashboard")
Set ws2 = Sheets("TempHRI")

LastRow = ws2.Range("B" & Rows.Count).End(xlUp).Row
DestLast = ws1.Range("E" & Rows.Count).End(xlUp).Row

For CurRow = 2 To LastRow 'Assumes first row has headers
checkstatus = CStr(ws2.Range("AB" & CurRow).Value)

If checkstatus = "UPDATE" Then
'Column that looks up the word "Update" in ws2
If Not ws1.Range("E15:E" & DestLast).Find(ws2.Range("B" & CurRow).Value, LookIn:=xlValues, LookAt:=xlWhole) Is Nothing Then
        DestRow = ws1.Range("E15:E" & DestLast).Find(ws2.Range("B" & CurRow).Value, LookIn:=xlValues, LookAt:=xlWhole).Row
    End If

    ws1.Range("I" & DestRow).Value = ws2.Range("F" & CurRow).Value 'assumes supervisor is in column C in both sheets

End If

Next CurRow

我想在 ws1 中放置一个过滤器，这样我可以最大限度地减少它需要检查的行数。现在我很确定下面的代码不会忽略隐藏的行。当我运行循环时，我需要帮助调整代码以排除隐藏行。

【问题讨论】：

只需在 Worksheet2 上使用自动过滤器，如 here 所示，然后仅循环遍历该范围

标签： vba excel

【解决方案1】：

尝试检查.EntireRow.Hidden 属性：

For CurRow = 2 To LastRow 'Assumes first row has headers
    ' DO something only if the row is NOT hidden
    If ws1.Rows(CurRow).EntireRow.Hidden = False Then
        checkstatus = CStr(ws2.Range("AB" & CurRow).Value)

        If checkstatus = "UPDATE" Then
        'Column that looks up the word "Update" in ws2
        If Not ws1.Range("E15:E" & DestLast).Find(ws2.Range("B" & CurRow).Value, LookIn:=xlValues, LookAt:=xlWhole) Is Nothing Then
                DestRow = ws1.Range("E15:E" & DestLast).Find(ws2.Range("B" & CurRow).Value, LookIn:=xlValues, LookAt:=xlWhole).Row
            End If

            ws1.Range("I" & DestRow).Value = ws2.Range("F" & CurRow).Value 'assumes supervisor is in column C in both sheets

        End If
    End If
Next CurRow

编辑：在ws2下面的评论之后添加

For CurRow = 2 To LastRow 'Assumes first row has headers
    ' DO something only if the row is NOT hidden
    If ws1.Rows(CurRow).EntireRow.Hidden = False Then
        ' Checking ws2 as well, for hidden rows
        If ws2.Range("AB" & CurRow).EntireRow.Hidden = False Then
            checkstatus = CStr(ws2.Range("AB" & CurRow).Value)

            If checkstatus = "UPDATE" Then
            'Column that looks up the word "Update" in ws2
            If Not ws1.Range("E15:E" & DestLast).Find(ws2.Range("B" & CurRow).Value, LookIn:=xlValues, LookAt:=xlWhole) Is Nothing Then
                    DestRow = ws1.Range("E15:E" & DestLast).Find(ws2.Range("B" & CurRow).Value, LookIn:=xlValues, LookAt:=xlWhole).Row
                End If

                ws1.Range("I" & DestRow).Value = ws2.Range("F" & CurRow).Value 'assumes supervisor is in column C in both sheets

            End If
        End If
    End If
Next CurRow

请尝试以上方法，看看是否满足您的需求

【讨论】：

您好，感谢您的回复。我们也可以检查 ws2 的隐藏行吗？谢谢。