注意：工作表函式放在VBA程式碼使用它賦值的方式略有不同，它的前面需要加一個＝號。

下面是程式碼分享

Sub yu()

Dim sr As Range

For Each sr In Range("f2", Range("f2").End(xlDown)) 迴圈動態獲取區域

sr(1, 2) = "=countif(b:b,f" & sr.Row & ")" 條件判斷函式、計數

sr(1, 3) = "=sumif(b:b,f" & sr.Row & ",c:c)" 條件判斷函式、求和

sr(1, 4) = "=averageif(b:b,f" & sr.Row & ",d:d)" 條件判斷函式、求平均

Next

End Sub