两个变量作为单元格引用

Question

我在编写下面的宏时遇到问题。为了简化它，我删除了代码中所有不相关的部分以使其更容易。

Sub Macro1()
Dim a As Integer
For a = 2 To 21
Dim y As Integer
For y = 27 To 47
If InStr(Cells(a, y), “SUB”) > 0 Then
Range(Cells(a, y), Cells(a, (y + 2))).Select
Selection.Cut
Cells(a, 22).Select
ActiveSheet.Paste
End If
Next y
Next a
End Sub

发生的情况是，它正在剪切和粘贴 y=27 到 y=47 的所有范围，而不仅仅是通过 IF 语句的单元格。我怀疑这与为列标识符和行标识符使用变量有关，但不知道。

它应该做的是找到一个包含“SUB”的单元格，然后复制该单元格及其右侧的 2 个单元格并将它们粘贴到同一行，但第 22-24 列。

有人有什么想法吗？

Answer 1

您发布的代码没有明显的问题，但可以通过删除选择来改进/缩短它

Sub Macro1()

    Dim a As Long, y As Long

    For a = 2 To 21
        For y = 27 To 47
            If InStr(Cells(a, y), "SUB") > 0 Then
                Cells(a, y).Resize(1, 3).Cut Cells(a, 22)
            End If
        Next y
    Next a

End Sub