VBA代碼，用於查找條件列數據的平均值。

假設您要計算Q列的平均值，則前壹列（P列）中有值的相應行將不參與計算，並且圖中不會計算兩個單元格0.7和0.37。如果是這樣，可以使用以下代碼:

子條件平均值（）

Dim Ra組件範圍

出錯時繼續下壹步

設置Ra = ActiveCell。完整列。特殊單元（2）。偏移量（0，-1）。特殊細胞（4）。偏移量（0，1）

如果Not Ra是Nothing則MsgBox的平均值為:“&；工作表功能。平均值（Ra）

末端接頭

使用方法，首先選擇要計算的列的任意單元格，然後運行代碼。