Excel VBA求相關單元格區域的總數、平均數、最大值、最小值等

需要免費Excel原始碼的請評論區留言、點擊關注和轉發，然後直接私信回覆：原始碼

Application對象

實例 工作表的WorksheetFunction屬性函數

本例是利用工作表WorksheetFunction屬性求相關單元格區域的總數、平均數、最大值、最小值等。

示例代碼：

#001 Public Sub 實例2_()

#002 Dim myRange As Range, MyAnswer

#003 Set myRange = Worksheets("Sheet1").Range("A1:E20")

#004

#005 MyAnswer = Application.WorksheetFunction.Max(myRange)

#006 MsgBox "[A1:E20]單元格區域中最大值是：" & MyAnswer

#007

#008 MyAnswer = Application.WorksheetFunction.Average(myRange)

#009 MsgBox "[A1:E20]單元格區域中平均值是：" & MyAnswer

#010

#011 MyAnswer = Application.WorksheetFunction.Sum(myRange)

#012 MsgBox "[A1:E20]單元格區域中總和是：" & MyAnswer

#013

#014 MyAnswer = Application.WorksheetFunction.Min(myRange)

#015 MsgBox "[A1:E20]單元格區域中最小值是：" & MyAnswer

#016 Set myRange = Nothing

#017 Set MyAnswer = Nothing

#018 End Sub

運行結果如圖 38所示：

代碼說明：

獲取工作表Sheet1單元格區域A1:E20中的總數、最大值、最小值、平均值。

最近不斷的免費發送Excel VBA的實例教程，有需要Excel原始碼的請評論區留言、點擊關注和轉發，然後直接私信回覆：原始碼

部分實例圖：

舉報/反饋