最大奇数加最小奇数，再除以2(编号04)

爷们679

最大奇数加最小奇数，再除以2

上清宫主

Sub test()
For r% = 4 To 2082
    ma% = 0
    mi% = 1000
    For c% = 3 To 8
        If Cells(r, c) Mod 2 Then
           If ma < Cells(r, c) Then ma = Cells(r, c)
           If mi > Cells(r, c) Then mi = Cells(r, c)
        End If
    Next
    If ma * mi Then Cells(r, "Aq") = (ma + mi) / 2
Next
End Sub

大灰狼1976

公式也可以解决，I4单元格输入数组公式=(MAX(IF(MOD(C4:H4,2),C4:H4))+MIN(IF(MOD(C4:H4,2),C4:H4)))/2，三键结束，下拉。