GBKEE

回復 1# t8899

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim i As Integer, xSum As Long, xi As Integer, x As Integer
   
4.     x = 10
   
5.     For i = 200 To 20 Step -1
   
6.         If xi > x Then Exit For
   
7.         If Cells(i, "a") <> "" Then
   
8.             xSum = xSum + Cells(i, "a")
   
9.             xi = xi + 1
   
10.         End If
    
11.     Next
    
12.     MsgBox xSum / x
    
13. End Sub

複製代碼