Question

我有一个自动提取的报告，要求在某些列的末尾添加Sums。报告在A-R列中保持静态，但从S开始的列数可以少至1或者直到52.行数永远不会是静态的。我已经知道如何找到最后一行，我的总和需要从第J列开始，但是当我尝试自动填充到包含数据的最后一列的右边（在同一行我总结了J）时，它会回吐一个错误或不起作用。有人知道怎么做吗？这就是我迄今为止的代码。

Sub TV_Buysheet()
'
' Macro1 Macro
'



    Range("J1").Select
    FIRST_ROW = ActiveCell.Row
    Selection.End(xlDown).Select
    LAST_ROW = ActiveCell.Row
    Selection.Offset(2, 0).Select
    ActiveCell.FormulaR1C1 = "=SUM(R[" & FIRST_ROW - LAST_ROW - 2 & "]C:R[-2]C)"
Dim lastCol As Long
lastCol = Cells(2, Columns.Count).End(xlToLeft).Column

 ActiveCell.AutoFill Destination:=Range(ActiveCell, lastCol), Type:=xlFillDefault

      End Sub

错过自动填充到最后一列的代码行...

Answer 1

要查找最后一列，以下内容应该有效

Dim lngLastColumn As Long

lngLastColumn = Cells.Find(What:="*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column

Range(Activecell, Cells(Activecell.Row, lngLastColumn)).FillRight

VBA宏自动填充到最后一列

1 个答案: