避免在具有可变范围的VBA Excel宏中选择

Question

我按照问题中的建议如何避免在Excel VBA宏中使用Select，但仍然得到“应用程序定义的或对象定义的错误”。

这是我的最后一个版本：

    Counter2 = 17
    For Counter1 = 12 To 150

    Dim S As Worksheet
    Dim R As Worksheet
    Dim SL As Range
    Dim RL As Range
    Set R = Sheets("Front")
    Set S = Sheets("CHECK LIST")
    Set SL = S.Range(Cells(Counter1, 1), Cells(Counter1, 10))
    Set RL = R.Range(Cells(Counter2, 1), Cells(Counter2, 10))

    Set curCell = Worksheets("CHECK LIST").Cells(Counter1, 6)
    Set checkCell = Worksheets("Front").Cells(3, 5)
        If curCell.Value = checkCell.Value Then

            With S
                .SL.Copy
            End With

            With R
                .RL.PasteSpecial
            End With

            Counter2 = Counter2 + 1

        End If
Next Counter1

这是否与范围中变量(Counter1、Counter2)的使用有关？

Answer 1

错误可能是由此代码块中的copy和pastespecial行引起的：

        With S
            .SL.Copy
        End With  
        With R
            .RL.PasteSpecial
        End With

一旦设置了一个范围变量，Excel就知道哪个工作表和哪个工作簿包含该范围变量。如果要对范围执行某些操作，则不需要包含工作表。因此，在您的代码中，您只需使用

SL.Copy
RL. PasteSpecial

考虑一下循环内部是否有应该在外部的代码，这总是一个好主意。在您的代码中，您在循环中设置工作表变量，但这应该在循环之前完成一次。在您的文章中添加评论，您的代码应该更改为：

Dim S As Worksheet
Dim R As Worksheet
Set R = Sheets("Front")
Set S = Sheets("CHECK LIST")

Counter2 = 17
For Counter1 = 12 To 150

    Dim SL As Range
    Dim RL As Range
    Set SL = S.Range(S.Cells(Counter1, 1), S.Cells(Counter1, 10))
    Set RL = R.Range(R.Cells(Counter2, 1), R.Cells(Counter2, 10))

    Set curCell = Worksheets("CHECK LIST").Cells(Counter1, 6)
    Set checkCell = Worksheets("Front").Cells(3, 5)
    If curCell.Value = checkCell.Value Then

        SL.Copy
        RL.PasteSpecial

        Counter2 = Counter2 + 1
    End If
Next Counter1

pastespecial方法有几个参数：

.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, _
            Transpose:=False

如果你不使用这些，那么也许你可以做一个“正常”复制和粘贴？

SL.Copy RL