VBAmacros自动填充直到最后一列

我有一个自动拖动的报表，需要在特定列的末尾添加Sum。 该报告在列AR中保持不变，但S列的数量可以less至1，或者一直增加到52.行的数量永远不会是静态的。 我已经知道如何find最后一行，我的总和需要从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 

只是缺less自动填充到最后一列的代码行…

Answer 1

要find最后一列，以下应该工作

 Dim lngLastColumn As Long lngLastColumn = Cells.Find(What:="*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column Range(Activecell, Cells(Activecell.Row, lngLastColumn)).FillRight