循环工作表并检查单元格值

Question

我正在尝试遍历所有工作表并逐个检查它们并执行以下操作：如果在选中的单元格中 E18 = N/A 的值，那么在第一张工作表（名为摘要）上我会更改值G23 到 N/A 以及（然后对每个单元格都这样做，并在摘要更改 G23 然后 G24 然后 G25 等等）我编写了以下循环，它运行但它没有做任何事情

Sub MyTestSub()

Dim ws As Worksheet

LastRow = Cells(Rows.Count, "G").End(xlUp).Row
For X = 22 To LastRow
    For Each ws In Worksheets
        If ws.Range("E18").Value="N/A" then ThisWorkbook.Sheets("Summary").Range("G"&x).Value="N/A"
    Next ws                 
Next x

End Sub

任何帮助将不胜感激！

Answer 1

它需要是一个两步程序：

1. 检查单元格中是否有IsError。
2. 检查错误类型是否为#N/A，与If .Range("E18").Value = CVErr(xlErrNA) Then。

否则，如果你有一个普通的String，比如“通过”，你会得到一个错误。

代码

Dim lRow As Long

LastRow = Sheets("Summary").Cells(Sheets("Summary").Rows.Count, "G").End(xlUp).Row
lRow = 23 ' start from row 23

For Each ws In Worksheets
    With ws
        If .Name <> "Summary" Then
            If IsError(.Range("E18").Value) Then
                If .Range("E18").Value = CVErr(xlErrNA) Then
                    Sheets("Summary").Range("G" & lRow).Value = CVErr(xlErrNA)
                End If
            End If
        End If
    End With
    lRow = lRow + 1
Next ws   

Answer 2

尝试反转嵌套循环。这样的事情应该可以工作：

Sub MyTestSub()
    Dim ws As Worksheet
    For Each ws In Worksheets
        LastRow = ws.Cells(ws.Rows.Count, "G").End(xlUp).Row            
        If IsError(ws.Range("E18")) then 
            For X = 22 To LastRow
                Sheets("Summary").Range("G" & LastRow) = ws.Range("E18")
            next x
        end if
    Next ws                 
End Sub

此外，我假设LastRow 每个工作表都不同，因此您必须经常重置它 - 每次有新工作表时。 最后但并非最不重要的一点 - 确保在引用 Cells 时引用工作表，如下所示：

LastRow = ws.Cells(ws.Rows.Count, "G").End(xlUp).Row            

如果您不这样做，您将考虑到ActiveSheet。

这里有更多关于 Excel 中的错误并返回它们 - http://www.cpearson.com/excel/ReturningErrors.aspx

该解决方案适用于任何错误，而不仅仅是 #N/A