用function自定义函数吧。
Function 加(a As Range)
Application.Volatile
b = a.Address
加 = a.Value + Sheets(Application.Caller.Parent.Index - 1).Range(b).Offset(0, 1).Value
End Function
Function 加(a As Range)
Application.Volatile
b = a.Address
加 = a.Value + Sheets(Application.Caller.Parent.Index - 1).Range(b).Offset(0, 1).Value
End Function
