使用变量选择Excel单元格区域时出现列全选问题求助

核心问题1：变量名冲突 #

你使用的变量名Active是VBA的内置关键字（用于指代活动对象，比如ActiveCell、ActiveSheet），VBA无法正确将其识别为自定义变量，导致拼接单元格地址时出错，最终生成了Range("AE:AI")这样的整列引用，所以会选中AE到AI的整列。

核心问题2：循环逻辑错误 #

你在Do While循环内部每次都将变量重置为13，这会导致循环永远停留在第13行，根本无法推进到下一行，更不会触发终止条件。

修正后的代码 #

Dim rowNum As Integer ' 改用自定义变量名，避免关键字冲突
rowNum = 13 ' 初始化行号放在循环外部

Do While rowNum < 20
    ' 上一次运行的清理代码放在这里
    Range("AE" & rowNum & ":AI" & rowNum).Copy ' 直接复制，无需Select（VBA最佳实践）
    ' 后续的业务处理代码放在这里
    
    rowNum = rowNum + 1 ' 行号自增，推进循环
Loop

额外优化提示 #

• 尽量避免使用Select和Selection，直接操作对象（比如上面的Range(...).Copy）可以提升代码运行效率，减少错误。
• 给变量起有意义的名字（比如rowNum），能让代码更易读，也避免和VBA内置关键字冲突。

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