在 Excel 工作表中循环遍历单元格

Question

我正在为 Excel 编写 VBA 代码，以循环遍历工作簿中所有工作表中的所有单元格，并根据它们的数值和位置打印某些单元格。但是，由于收到 424 object required 错误，我无法遍历特定工作表中的单元格。

我尝试调试我的代码，当我尝试遍历特定工作表中的整个单元格时，显然问题出在我的嵌套循环中。

Public Sub loopThrougSheet()

Dim ws As Worksheet
Dim starting_ws As Worksheet
Set starting_ws = ActiveSheet 'remember which worksheet is active in the beginning
Dim cell As Range
Dim data As Range

For Each ws In ThisWorkbook.Worksheets
ws.Activate
Set data = Intersect(ws.UsedRange, ws.Range("A2:AW1048576"))
    For Each cell In data
        If IsNumeric(cell.Value) And cell.Value > 0.5 Then
            Debug.Print (cell.Value)
        End If
    Next
Next

End Sub

代码无法编译，因为我收到 424 object required run time 错误。

Answer 1

试试下面：

原因： 数据未返回任何内容，工作表可能为空白或交叉点中没有任何内容。

添加IsError检查单元格，如果数据是空的。

Public Sub loopThrougSheet()

Dim ws As Worksheet
Dim starting_ws As Worksheet

Dim cel As Range
Dim data As Range

For Each ws In ThisWorkbook.Worksheets

    Set data = Intersect(ws.UsedRange, ws.Range("A2:AW1048576"))
        If Not data Is Nothing Then
        For Each cel In data
            If Not IsError(cel.Value) Then
            If IsNumeric(cel.Value) And cel.Value > 0.5 Then
                Debug.Print cel.Value
            End If
            End If
        Next
        End If
Next

End Sub