VBA:如何将公式应用于非空单元格的单元格?

FORMULA = INDEX(Sheet2!$A$2:$A$1000,MATCH(A2,Sheet2!$G$2:$G$1000,0))

A2是活动工作表中的一个单元格,不确定是否需要具体说Sheet1!A2。 输出将在B2上。

 ActiveCell.FormulaR1C1 = _ "=INDEX(Sheet2!R3C1:R1000C1,MATCH(Sheet1!RC[-4],Sheet2!R3C7:R1000C7,0))" 

是我从macros观logging中得到的,但不知道RC的东西是什么。

列A公式列

一个

C
d
Ë
F
G
H
一世

我想我需要一个for循环来评估所有单元格的左边有一个值。 我不知道如何在另一个工作表中引用单元格以及向下移动列来input公式。

弄清楚了。 这最终为我工作。

 '`Sub ApplyFormula() ' ' ApplyFormula Macro ' Dim i& For i = 2 To ActiveSheet.UsedRange.Rows.Count If Cells(i, 1).Value <> "" Then Cells(i, 6).FormulaR1C1 = "=INDEX(Sheet2!R2C1:R1000C1,MATCH(Sheet1!RC[-4],Sheet2!R2C7:R1000C7,0))" Next End Sub