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

您可以尝试：

Private Sub Workbook_Open（）

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

结束子

excel vba使用vba插入空单元格的公式

1 个答案: