Question

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))"

是我从记录宏中获得的，但不确定RC的内容是什么。

列A公式列

一个
  乙
  ç
  d
  Ë
  ˚F
  摹
  ^ h
  我

我想我需要一个for循环来评估与左边有值的单元格相邻的所有单元格。我不确定如何输入公式，引用另一张纸中的单元格以及向下移动列。

Answer 1

想出来。这最终为我工作。

'`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

VBA：如何将公式应用于与非空单元格相邻的单元格？

1 个答案: