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 

注：但是使用選擇應該避免。