excel表格如何利用vba自动填充公式

excel中使用vba自动填充公式的方法 。
1、首先我们打开一个工作样表作为例子 。
2、打开vba编辑窗口,创建一个新的模块,并输入以下代码:
Sub 填充公式()
Dim i As Long,j As Long
With Range(A1).CurrentRegion
i = .Rows.Count - 1
j = .Columns.Count - 1
End With
Range(J3).AutoFill _
Destination:=Range(Cells(3 ,  10),Cells(i,10))
Range(D16).AutoFill _
Destination:=Range(Cells(16 ,  4) ,  Cells(16 ,  j))
End Sub
3、这里with是简化代码的写法,读取了当前活动单元格的区域,并将行列分别赋值为I和J变量- 1 。
4、简写掉的代码完整版的是 Range(A1).CurrentRegion.Rows.Count和Range(A1).CurrentRegion.Columns.Count。
5、接着我们使用autofill函数来填充给定的单元格区域 。其中,自动填充的公式单元格竖列指定的是J3,横行指定的是D13,代码如图 。
【excel表格如何利用vba自动填充公式】6、而最终填充的区域范围,为本活动单元格的区域范围,我给的例子格式不正确,大家试试找出正确的公式和标题栏 。我们创建一个宏按钮,来看一下正确运行的结果 。

excel表格如何利用vba自动填充公式的详细内容就为您分享到这里,【精彩生活】jing111.com小编为您精选以下内容,希望对您有所帮助: