平均低於變量行-VBA Excel編程

有一列像200行包含整數數據。如何找到行中所有這些數據的平均值並將結果放在第201行的同一列中？平均低於變量行-VBA Excel編程

2016-01-23 Sunaina

只要在第201行放上'= AVERAGE（A1：A200）'，或者那不是你要找的東西？ – dubafek

@dubafek你沒有仔細閱讀這個問題：p：p：p ...好的，對不起...編輯... – Rosetta

有10列，我必須計算上述平均值。我想要一個VBA中的函數/子對所有這樣的列都有這樣的功能。 – Sunaina

這將找到您的最後一行和最後一列，然後將其平均2行放在它下面。

Sub GetAverage() 
    Dim Rws As Long, Col As Integer, r As Range, FrNg As Range 

    Set r = Range("A1") 
    Rws = Cells.Find(what:="*", after:=r, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row 
    Col = Cells.Find(what:="*", after:=r, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column 
    Set FrNg = Range(Cells(Rws + 2, 1), Cells(Rws + 2, Col)) ' range A2 to last cell on sheet 

    FrNg = "=AVERAGE(A2:A" & Rws & ")" 
    FrNg.Value = FrNg.Value 

End Sub

查看更多選擇代碼。 Selection Codes

來源

2016-01-23 11:28:21 Davesexcel

平均低於變量行-VBA Excel編程

回答

相關問題