如题所述
'自定义公式-按ALT+11-插入-模块(隔行相加)Function 隔行相加(a As Integer)m = 1For i = 1 To 100If i = a Then 隔行相加 = Cells(m, 1) + Cells(m + 1, 1) + Cells(m, 2) + Cells(m + 1, 2)m = m + 2NextIf 隔行相加 = 0 Or 隔行相加 = "" Then 隔行相加 = ""End Function
=INDIRECT("A"&ROW(A1)*2-1)+INDIRECT("A"&(ROW(A1)*2))+INDIRECT("B"&ROW(A1)*2-1)+INDIRECT("B"&(ROW(A1)*2))
手机打的,不容易,望采纳!