excelvba用vba插入空单元格的公式

Question

我不知道如何在vba中添加这个公式，并使其在范围内动态

the formula is: =ALS(L9="";"";M9*VERT.ZOEKEN(L9;'Database Freon'!B2:C20;2;0))
Database OU Column L = text
Database OU column M = number
Database OU Column N = number
Database Freon B Column = text
Database Freon C column = number
formula is at Column N or if better other column but value to Column N

公式计算M*C=N

现在，我希望每次打开工作簿时都运行此公式，以填充数据库OU列N 上的所有空单元格

提前感谢

Answer 1

您可以尝试：

私有子工作簿打开((

Range("N6").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-2]="""","""",RC[-1]*VLOOKUP(RC[-2],'Database Freon'!B2:C20,2,0))"
Range("N6").Select
Selection.Copy
Do While True
ActiveCell.Offset(1, 0).Select
If IsEmpty(ActiveCell.Offset(0, -2).Value) And IsEmpty(ActiveCell.Offset(0, -1).Value) Then
Exit Do
Else
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
End If
Loop

结束子