Excel VBA自动填充公式

这两段VBA代码展示了如何在当前工作簿或指定文件中自动填充公式到某一列的特定范围内。首先激活目标工作表,然后选择起始单元格,写入公式,接着使用`AutoFillDestination`填充指定范围,最后保存文件。
摘要由CSDN通过智能技术生成

通过vba函数实现:写入一个公式到单元格中,并自动填充该公式到该列指定范围中。

❤ 代码1(在当前文件中添加公式):

Sub 在当前文件中自动填充一列公式(sheetName As String, cellStr As String, r As String, formulaStr As String)
'
'sheetName:sheet名
'cellStr:要填充的起始单元格,如“A1”
'r:要写入的范围,如“A1:A100”
'formulaStr:公式字符串
'

    '激活sheet
    ThisWorkbook.Sheets(sheetName).Activate

    '选中要填入公式的单元格
    ThisWorkbook.ActiveSheet.Range(cellStr).Select

    '写入公式
    Selection.Formula = formulaStr

    '选中该单元格
    ThisWorkbook.ActiveSheet.Range(cellStr).Select

    '自动填充
    Selection.AutoFill Destination:=ThisWorkbook.ActiveSheet.Range(r), Type:=xlFillDefault
    ThisWorkbook.ActiveSheet.Range(r).Select
    
    '保存
    ThisWorkbook.Save
    
End Sub

❤ 代码2(在目标文件中添加公式):

Sub 在目标文件中自动填充一列公式(srcPath As String, sheetName As String, cellStr As String, r As String, formulaStr As String)
'
'srcPath:文件路径
'sheetName:sheet名
'cellStr:要填充的起始单元格
'r:要写入的范围
'formulaStr:公式
'
    '打开目标Excel文件
    Set srcWb = Workbooks.Open(srcPath)
    srcWb.Sheets(sheetName).Activate
    '选中单元格
    srcWb.ActiveSheet.Range(cellStr).Select
    '写入公式
    Selection.Formula = formulaStr
    srcWb.ActiveSheet.Range(cellStr).Select
    '自动填充到指定范围
    Selection.AutoFill Destination:=srcWb.ActiveSheet.Range(r), Type:=xlFillDefault
    srcWb.ActiveSheet.Range(r).Select
    
    '保存
    srcWb.Save
    '关闭
    srcWb.Close

End Sub

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

ta叫我小白

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值