標題: [發問] 如何使用VBA計算兩組數的平均 [打印本頁]

---

作者: linlin00    時間: 2015-7-23 17:56     標題: 如何使用VBA計算兩組數的平均

本帖最後由 linlin00 於 2015-7-23 17:59 編輯

各位大大好，我最近開始練習VBA，
附件是我原先計算的，假設有6筆資料要兩兩計算它的平均，
像是第一筆資料分別為5,5，第二筆分別為6,6
可求得第一筆與第二筆的平均分別為(5+6)/2=5.5,(5+6)/2=5.5
想請問如果要以VBA來操作該如何表示呢?

[attach]21463[/attach]

---

作者: lpk187    時間: 2015-7-23 21:33

回復 1# linlin00

1. Public Sub Ex()
   
2. s = 2
   
3. For i = 2 To 6
   
4.     x = i + 1
   
5.     For J = x To 7
   
6.         Cells(s, "G") = (Cells(i, 2) + Cells(J, 2)) / 2
   
7.         Cells(s, "H") = (Cells(i, 3) + Cells(J, 3)) / 2
   
8.         s = s + 1
   
9.     Next
   
10. Next
    
11. End Sub

複製代碼

---

作者: linlin00    時間: 2015-7-23 22:32

謝謝lpk187大!!
另外想請問一下，如果想在每一行平均前面自動產生是誰與誰的平均有辦法做到嗎?
比如說第一行是1跟2的平均，就在那一行前面寫上"1+2的平均"類似這樣

---

作者: lpk187    時間: 2015-7-23 22:42

回復 3# linlin00

1. Public Sub Ex()
   
2. s = 2
   
3. For I = 2 To 6
   
4.     x = I + 1
   
5.     For J = x To 7
   
6.         Cells(s, "F") = Cells(I, 1) & "," & Cells(J, 1)
   
7.         Cells(s, "G") = (Cells(I, 2) + Cells(J, 2)) / 2
   
8.         Cells(s, "H") = (Cells(I, 3) + Cells(J, 3)) / 2
   
9.         s = s + 1
   
10.     Next
    
11. Next
    
12. End Sub

複製代碼

---

作者: linlin00    時間: 2015-7-23 23:18

非常感謝!!

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)