Excel VBA自动填充未从AD2启动且无法向下填充问题求助

嘿，我帮你排查下这个宏的问题，你遇到的「公式跑到AD1且无法向下填充」的情况，大概率是代码里的几个细节出了问题：

1. 最后一行的计算逻辑错了 #

你用Cells(Rows.Count).End(xlUp).Row来获取最后一行，这个写法会默认找整个工作表里最后一个非空单元格的行号——如果AD列之前有残留数据，或者其他列有更靠下的内容，就会导致lastRow不是你数据集（AB列）的真实最后一行，甚至可能误判成第1行，直接导致填充逻辑混乱。

正确的做法是基于你的数据源列（AB列）来计算，毕竟你要处理的是对应AB列的每一行数据：

lastRow = Cells(Rows.Count, "AB").End(xlUp).Row

2. 公式里的引用写错了！ #

你的公式里有个R[-21]C[-2]，这是引用当前行往上数21行的AB列单元格，而不是你需要的「当前行的AB列」！这和你描述的“读取AB列单元格内容”完全不符，不仅会导致结果错误，还可能因为引用到标题行而出错，进而影响自动填充的执行。

把这个错误的引用改成RC[-2]就对了，也就是当前行的AB列：

"=IF(NOT(ISERROR(FIND(""iMac"",RC[-2]))),""iMac"",IF(NOT(ISERROR(FIND(""MacBook"",RC[-2]))),""MacBook"",""N/A""))"

3. 冗余的Select操作容易踩坑 #

VBA里尽量别用Select和Selection，这些操作依赖当前活动单元格，很容易因为工作表切换、鼠标误点等导致代码执行跑偏。直接针对Range对象操作既可靠又高效。

修复后的完整代码 #

我把这些问题都修正了，还简化了自动填充的步骤（直接给整列区域写公式，比AutoFill更高效）：

Sub FillMacDeviceFormula()
    Dim lastRow As Long
    ' 基于AB列获取数据集的最后一行
    lastRow = Cells(Rows.Count, "AB").End(xlUp).Row
    
    ' 直接给AD2到AD最后一行的区域写入公式
    Range("AD2:AD" & lastRow).FormulaR1C1 = _
        "=IF(ISNUMBER(FIND(""iMac"",RC[-2])),""iMac"",IF(ISNUMBER(FIND(""MacBook"",RC[-2])),""MacBook"",""N/A""))"
End Sub

额外小优化 #

我把NOT(ISERROR(FIND(...)))换成了ISNUMBER(FIND(...))，写法更简洁，逻辑是一样的——FIND找到内容会返回位置数字，找不到会报错，用ISNUMBER判断更直观。

如果你的需求是不区分大小写匹配（比如识别"IMac"或"macbook"），把FIND换成SEARCH就行，SEARCH是不区分大小写的。

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