Excel VBA如何按变量递增单元格编号执行条件复制操作

原代码存在的问题 #

• 单元格区域引用语法错误：不管是条件判断里的Range("AA:AB"& n)，还是复制语句里的Range("AA&n:BB&n")，都不符合VBA字符串拼接规则，正确写法需把单元格地址的字符串部分和变量用&拼接，比如"AA" & n。
• 条件判断逻辑错误：Range("AA:AB"& n).Value = "Ready" 是对整行AA到AB列的区域进行值比较，区域的Value返回数组，直接和字符串"Ready"比较会报错，应明确判断某一个单元格（比如AA列第n行）的值是否为"Ready"。
• 循环内手动递增n多余：For循环本身会自动让n从1递增到800，额外的n = n + 1会导致跳过部分行。
• 未声明变量n：虽然VBA允许隐式声明，但显式声明变量是良好的编程习惯，可避免潜在错误。
• 复制的源区域错误：原代码里的源区域写成了AA&n:BB&n，和需求里的AAx:ABx不符，应修正为AA到AB的对应行。

修正后的代码 #

Sub insertR()
    Dim n As Integer ' 显式声明变量n
    
    For n = 1 To 800
        ' 判断AA列第n行的值是否为"Ready"，若需判断AB列可改为Range("AB" & n)
        If Range("AA" & n).Value = "Ready" Then
            ' 复制AA列到AB列的第n行，粘贴到BA列到BB列的第n行
            Range("AA" & n & ":AB" & n).Copy Destination:=Range("BA" & n & ":BB" & n)
        End If
    Next n
End Sub

补充说明 #

如果需求是判断AA到AB列的第n行区域内任意单元格为"Ready"时执行复制，可将条件判断改为：

If WorksheetFunction.CountIf(Range("AA" & n & ":AB" & n), "Ready") > 0 Then

内容的提问来源于stack exchange，提问作者Mamdouh Mostaffa