VBA实现Excel整行下移失效及变量访问效率疑问求助

1. 下移行无反应的原因及解决方法 #

原因 #

你将代码中的+1改为-1后，实际执行的是上移动作：把当前行插入到上一行的上方，而非预期的下移。如果当前行不是第1行，执行后当前行内容会移到上一行位置，原当前行变为空行；如果当前行是第1行，Rows(lngActiveRow -1)指向无效的Rows(0)，Excel不会报错但也不会执行任何有效操作。这就导致你看不到预期的下移效果，误以为代码没反应。

另外，你原有的“上移”逻辑其实会留下空行——剪切当前行后插入到下一行位置，原当前行会变成空行，并非真正的无空行位置交换。

解决方法 #

要实现无空行的下移一行（当前行与下一行交换位置），正确代码如下：

' 下移一行：交换当前行与下一行，无空行
Rows(lngActiveRow + 1).Cut
Rows(lngActiveRow).Insert Shift:=xlDown
lngActiveRow = lngActiveRow + 1

如果要保留你原有的“剪切-插入”逻辑（允许临时空行），下移一行的代码需将剪切的当前行插入到下下一行的位置，之后再删除原位置的空行：

Rows(lngActiveRow).Cut
Rows(lngActiveRow + 2).Insert Shift:=xlDown
Rows(lngActiveRow).Delete Shift:=xlUp ' 删除原位置的空行
lngActiveRow = lngActiveRow + 1

2. 变量访问比工作表属性更快，说法正确吗？ #

这个说法是完全正确的。

VBA中，访问工作表属性（如ActiveCell.Row）需要与Excel应用程序进行跨进程交互，开销较高。而将属性值存入变量（如lngActiveRow = ActiveCell.Row）后，后续访问变量是直接读取内存中的值，速度远快于重复访问工作表属性。尤其是在循环或频繁调用的场景下，用变量缓存属性值能显著提升代码运行效率。

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