Excel使用VBA宏在区域内自动填充公式

已知：
区域：R6C2:R400C200
R6C2公式=表1!$B6*B$5
R7C2公式应当=表1!$B7*B$5 (向下拉）
R6C3公式应当=表1!$B6*C$5 向右拉）
如此类推...
要求：
使用VBA宏在区域【R6C2:R400C200】自动填充公式（不是拖拉）。
有其他方法更好，实际公式比较长，区域比较大，偶有增删行，总之要一键或两键即可配置好区域内公式，修改公式也可快速刷新。

举报该问题

其他回答

第1个回答 2014-10-09

一句代码就行：
Cells(6, 2).Resize(400 - 5, 200 - 1).FormulaR1C1 = "=表1!RC2*R5C"本回答被提问者和网友采纳

相似回答

excel表格怎么设置自动填充公式答：excel表格设置自动填充公式的技巧 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...

excel表格怎么利用vba自动填充公式答：如图，比如要在C1：C9写入公式，代码为：Sub DD()Dim I As IntegerFor I = 1 To 9 Range("C" & I).Value = "=sumif(a1:a9," & "a" & I & ",b1:b9)"NextEnd Sub

Excel使用VBA宏在区域内自动填充公式答：Cells(6, 2).Resize(400 - 5, 200 - 1).FormulaR1C1 = "=表1!RC2*R5C"

EXCEL,VBA代码按照第一列下拉填充公式怎么做到??答：以下图为例代码 Sub 宏1()Dim r As Longr = Cells(Rows.Count, "A").End(3).Row[B1].AutoFill Destination:=Range("B1:B" & r)End Sub

大家正在搜

在excel表中怎么使用宏公式 excel设置宏公式自动计算 excel使用宏编辑公式 excel宏公式 Excel怎么开启宏公式 excel宏和公式的优缺点 excel中宏与VBA 宏的公式怎么用宏编程怎样引用公式