VBA是否可以识别包含公式的行，并仅自动填充这些行？

Sub AutoFillFormulas()
    Dim lastRow As Long
    Dim i As Long
    
    ' 获取最后一行的行号
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 循环遍历每一行
    For i = 1 To lastRow
        ' 检查当前行是否包含公式
        If Cells(i, 1).HasFormula Then
            ' 获取公式所在的单元格范围
            Dim formulaRange As Range
            Set formulaRange = Range(Cells(i, 1), Cells(i, Columns.Count).End(xlToLeft))
            
            ' 填充公式
            formulaRange.FillDown
        End If
    Next i
End Sub