±ý¨D¨â­Ó«D³sÄò°Ï¶¡ªº¥­§¡­È¡A½Ð¦U¦ì¤j¤jÀ°¦£¡AÁÂÁ±z~~

peter460191

±ý¨D¨â­Ó«D³sÄò°Ï¶¡ªº¡y¥­§¡­È¡z¡A¨ä¤¤§t¡uªÅ¥Õ­È¡v¤Î¡u0­È¡v¡A³o¨âÃþ³£¤£­n­pºâ¡A½Ð¦U¦ì¤j¤jÀ°¦£¤@¤U¡AÁÂÁ±z~~
[attach]37303[/attach][attach]37303[/attach]
[attach]37304[/attach][attach]37304[/attach]

Andy2483

¦^´_ 1# peter460191


    ¹Ï¤ùµLªkÅã¥Ü
Option Explicit
Sub TEST()
Dim xU As Range, xA, N&, xR As Range, V
Set xU = Union([R6:R9, R13:R17], Range([S6], [S65536].End(3)))
For Each xR In xU
   If Val(xR) <> 0 Then N = N + 1: V = V + Val(xR)
Next
If N > 0 Then MsgBox V / N
End Sub

peter460191

¦^´_ 2# Andy2483

ÁÂÁ°Õ!