You need to enable JavaScript to run this app.
优惠活动
大模型
产品
解决方案
定价
更多

求助:将AK列公式填充至N列最后一行的VBA代码实现

简洁VBA实现方案

直接用1行代码就能完成AK列最后一行公式向下填充至N列最后一行的需求:

Sub FillAKFormula()
    Range("AK" & Cells(Rows.Count, "AK").End(xlUp).Row & ":AK" & Cells(Rows.Count, "N").End(xlUp).Row).FillDown
End Sub

原代码问题说明

你之前的代码是循环给单元格赋值「上一行数值+1」,既没有填充公式,逻辑也和你要的“延续AK列最后一行公式”不符,所以无法实现需求。

内容的提问来源于stack exchange,提问作者master cocktail

相关产品推荐
方舟 Agent Plan

超全模态模型 × Harness 升级,最新支持 Deepseek-V4.1-Flash、GLM-5.3 系列、Doubao-Seedream-5.0-pro、Kimi-K3 (部分), 限时 9.9 元起

最近更新时间:2026.06.12 22:52:03