Excel VBA 填充到最后一行的公式，不适用于最后一行

Question

我的工作簿中有以下计算工作表的公式。出于某种原因，最后一行没有填充公式。

知道这里有什么吗？除了所有这 3 个公式的最后一行，它工作得很好，我不确定为什么。

Sub CLFormulas()
    
        With ThisWorkbook.Worksheets("CurrentList")
    
            .Cells(1, 18).Resize(.Cells(.Rows.Count, 1).End(xlUp).Row - 1).Formula = "=IFERROR(VLOOKUP(CurrentList!Q1,AF!A:A,1,FALSE),0)"
            End With
        With ThisWorkbook.Worksheets("CurrentList")
    
            .Cells(1, 19).Resize(.Cells(.Rows.Count, 1).End(xlUp).Row - 1).Formula = "=IF(AND(R1 = 0, L1 = ""Override""),""Yes"",""No"")"
            End With
            
                 With ThisWorkbook.Worksheets("CurrentList")
    
            .Cells(1, 20).Resize(.Cells(.Rows.Count, 1).End(xlUp).Row - 1).Formula = "=CONCATENATE(C1,F1,K1)"
            End With
    
  
End Sub

Answer 1

你有 - 1 所以它永远不会做最后一行

Excel VBA 填充到最后一行的公式，不适用于最后一行

Excel VBA Formulas to populate until last row , not working for VERY LAST row

excel

vba

calculation