VBA公式都不盡如人意

我在快樂VBAVBA公式都不盡如人意

ActiveSheet.Cells(ActiveCell.Row, 1).Select 
ActiveCell.Offset(0, 7).Select 

With ActiveCell 
.formula = "=SUM(" & .Offset(1, 0).Address(0, 0) & ":" & _ 
.End(xlDown).Offset(0, 0).Address(0, 0) & ")" 
End With

編程下一公式及其引起我一些問題，因爲如果我運行宏，一旦它只是需要1行中的公式：= SUM（ H11：H11），但如果我運行它兩次，它完美的工作，將所有值的總和，直到工作表中的第一個空白單元格。

你能幫我改進我的宏，以便它能夠在第一次運行時正常工作嗎？

感謝您的關注，並提前

最好的問候，塞爾吉奧

來源

2014-01-20 Ruseiro

試試這個：

With ActiveCell 
    lastrow = Cells(Rows.Count, .Column).End(xlUp).Row 
    .Formula = "=SUM(" & .Offset(1, 0).Address & ":" & Cells(lastrow, .Column).Address & ")" 
End With

來源

2014-01-20 16:03:52

+ 1毆打！ :-) –

是啊！我也試過這個，但事實是，它查找了整個工作表中最後一個填充的單元格，在我的情況下這是不工作的。不過謝謝你的回答。每天學習新事物都很好。我從來沒有想過，Excel VBA是如此強大的工具 – Ruseiro

這是你想什麼呢？

With ActiveCell 
    .Formula = "=SUM(" & _ 
        .Offset(1, 0).Address & ":" & _ 
        .Offset(1, 0).End(xlDown).Address & _ 
        ")" 
End With

BTW INTERESTING READ

來源

2014-01-20 16:04:09

謝謝！那正是我正在尋找的東西。那麼，記錄在聲明的安排上是一個問題？ – Ruseiro

VBA公式都不盡如人意

回答

相關問題