math方程在vba中

我在表格“ Accrued Expenses ” Range("E7")上有math公式。 公式是打算循环，直到列C中的lastrow两个关键页是“起始页”和“应 计费用 ” 。

问题是， 我无法进入VBA代码 。 它使用Excelmacroslogging器，但它不会有效的维护。 我的公式和代码如下。

 =('Accrued Expenses'!C7*'Start page'!$F$5)/'Start page'!$F$13*'Accrued Expenses'!D7 

在Excellogging器代码和循环中：

 Option Explicit Sub Calculating_Accruedexpense() Sheets("Accrued Expenses").Select Dim LastRow As Long LastRow = ActiveSheet.Range("C" & Rows.Count).End(xlUp).row Range("E7").Select Do Until ActiveCell.row = LastRow + 1 If IsEmpty(ActiveCell) Then ActiveCell.FormulaR1C1 = _ "=('Accrued Expenses'!RC[-2]*'Start page'!R5C6)/'Start page'!R13C6*'Accrued Expenses'!RC[-1]" End If ActiveCell.Offset(1, 0).Select Loop End Sub 

Excellogging器行：

 ActiveCell.FormulaR1C1 = _ "=('Accrued Expenses'!RC[-2]*'Start page'!R5C6)/'Start page'!R13C6*'Accrued Expenses'!RC[-1]" 

Answer 1

尝试这个：

 Sub Calculating_AccruedExpense() Dim lastRow As Long, cl As Range lastRow = Worksheets("Accrued Expenses").Range("C" & Rows.Count).End(xlUp).Row For Each cl In Range("E7:E" & lastRow) If IsEmpty(cl) Then cl = (cl.Offset(0, -1) * Worksheets("Start page").Range("F5")) / Worksheets("Start page").Range("F13") * cl.Offset(0, -2) End If Next cl End Sub