VBA拒绝空的SpecialCells范围

Question

我遇到与SpecialCells方法定义的范围相关的“ For Each”问题。 当我运行下面的代码时，会出现“下一个没有For”错误，这是因为第一次运行代码时rRange为空。 我可以将“ On Error Resume Next”放在该子程序的开头，但是我试图避免这种情况。

Public Sub Sub1()

Set rRange = Worksheets("Combate").Range("69:99").SpecialCells(xlCellTypeConstants, xlNumbers)
If Not rRange Is Nothing Then
    For Each c In rRange
        If c.Value <= turnoseg Then
            c.Offset(-2 * lincomb0 + 6).Value = c.Offset(-lincomb0 + 3).Value
            c.Value = ""
        Next c
    atualizarefeitos6
    End If

End Sub

在另一个子程序中，运行以下代码后出现“未选择任何单元格”错误。 我真的不知道如何真正解决这些潜艇中的错误，但是你们一定会知道的。

Sub efeitosaddatac6()

'On Error Resume Next
Set rRange = Worksheets("Combate").Range("69:99").SpecialCells(xlCellTypeConstants, xlNumbers)
For Each c In rRange
    c.Value = c.Value + 1
    Next c
atualizarefeitos6

End Sub

提前致谢。

Answer 1

正如John Coleman在评论中指出的那样，您的第一个子例程无法正常工作，因为您缺少End If 。 您可能想要：

Public Sub Sub1()    
    Set rRange = Worksheets("Combate").Range("69:99").SpecialCells(xlCellTypeConstants, xlNumbers)
    If Not rRange Is Nothing Then
        For Each c In rRange
            If c.Value <= turnoseg Then
                c.Offset(-2 * lincomb0 + 6).Value = c.Offset(-lincomb0 + 3).Value
                c.Value = ""
            End If
        Next c
        atualizarefeitos6
    End If
End Sub

这是一致的代码缩进有用的原因之一-突出显示缺少End If ，等等。

---

我建议您如下更改第二个子例程：

Sub efeitosaddatac6()        

    Set rRange = Nothing
    On Error Resume Next
    Set rRange = Worksheets("Combate").Range("69:99").SpecialCells(xlCellTypeConstants, xlNumbers)
    On Error GoTo 0

    If Not rRange Is Nothing Then        
        For Each c In rRange
            c.Value = c.Value + 1
        Next c
        atualizarefeitos6
    End If    
End Sub

---

另外，如果在代码模块开始时尚未使用Option Explicit ，则建议您这样做。 （我希望您已经在使用它，并且每个子例程中缺少变量声明只是因为它们都是在模块级别上声明的。）

Answer 2

路易斯·菲略（Luis Filho），您需要输入：

     End If

之前

     Next c

您需要定义的另一项是：

     atualizarefeitos6

这是变量还是函数？