我有一个宏在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列到最后(使用)列的公式。
答案 0 :(得分: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
注意: 但应避免使用 SELECT 。