VBA宏將自動填充到最后一列

Question

我有一個自動拉出的報告，要求在某些列的末尾添加Sums。 該報告在“列AR”中保持靜態，但從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