好吧问答库 > 高分求助一个vba编写

高分求助一个vba编写

11) Use VBA to make a Sub CalculateColumn to calculate simple column averages for f5:f11. Use a for next loop12) Use VBA to make a Sub CalculateRow to calculate simple row averages for b12:e12. Use a for next loop.Location High Low Noon Midnight Average Cairo 92 83 88 85 　 Champaign 87 70 83 70 　 Chicago 94 72 85 79 　 East St Louis 98 85 95 87 　 Springfield 91 75 91 81 　 Quincy 90 78 86 81 　 Rockford 84 68 80 76 　 Average 　　　　　

2026年09月25日 13:59

有2个网友回答

网友（1）：

Sub CalculateColumn()
Dim i As Integer
For i = 2 To 9
Range("F" & i).FormulaR1C1 = "=AVERAGE(RC[-4]:RC[-1])"
Next
End Sub
Sub CalculateRow()
Dim i As Integer
For i = 2 To 6
Cells(9, i).FormulaR1C1 = "=AVERAGE(R[-7]C:R[-1]C)"
Next
End Sub

网友（2）：

Sub CaculateR()
Dim i As Integer, s As Single, j As Integer
For i = 5 To 11
s = 0
For j = Asc("B") To Asc("E")
s = s + Range(Chr(j) & i)
Next
Range("F" & i) = s / 4
Next

End Sub
Sub CaculateC()
Dim i As Integer, s As Single, j As Integer
For i = Asc("B") To Asc("E")
s = 0
For j = 5 To 11
s = s + Range(Chr(i) & j)
Next
Range(Chr(i) & "12") = s / 7
Next

End Sub