首页 文章

Excel vba自动填充excel中列到最后一列的公式

提问于
浏览 次
0

我有一个宏在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列到最后（使用）列的公式 .

excel vba excel-vba

1 回答

  • 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

    NOTE: 但是应该避免使用 SELECT .

    回复于

相关问题