Excel VBA自动填充公式从列到Excel中的最后一列

Question

我确实有一个宏，它在N2单元格中添加公式并自动填充到表格中的最后一行。

Sub Formulae_to_find_EachFeatureCount() 
    Dim LastRow As Long 
    LastRow = Range("G" & Rows.Count).End(xlUp).Row 

    Range("N2").Select 
    ActiveCell.FormulaR1C1 = "=COUNTIFS(C2,R1C,C1,RC7)" 
    Range("N2").Select 
    Selection.AutoFill Destination:=Range("N2:N" & LastRow), Type:=xlFillDefault 
    ' Range("N2:N10").Select 
End Sub 

我也能找到最后一列（列名称和编号）与下面的代码：

Dim LastColumn As Integer 
    'Search for any entry, by searching backwards by Columns. 
    LastColumn = Cells.Find(What:="*", After:=[A1], _ 
    SearchOrder:=xlByColumns, _ 
    SearchDirection:=xlPrevious).Column 
    LastCol = Replace(Cells(1, LastColumn).Address(False, False), "1", "") 

现在我想从自动填充N个列公式，最后一个（使用）列。

Answer 1

我想这是你在找什么：

Sub Formulae_to_find_EachFeatureCount() 
    Dim LastRow As Long 
    LastRow = Range("G" & Rows.Count).End(xlUp).Row 

    Range("N2").Select 
    ActiveCell.FormulaR1C1 = "=COUNTIFS(C2,R1C,C1,RC7)" 
    Range("N2").Select 
    Selection.AutoFill Destination:=Range("N2:N" & LastRow), Type:=xlFillDefault 
    Range("N1:N" & LastRow).Select 
    Selection.AutoFill Destination:=Range("N2:" & lastcol & LastRow), Type:=xlFillDefault 
End Sub 

注：但是使用选择应该避免。