Sub 计算中间点() Dim A As Double Dim i, R As Integer Dim H As String Range("g1:g100").Offset(0, 1).Insert Range("h1:h100").Offset(0, 1).Insert Range("i1:i100").Offset(0, 1).Insert For i = 1 To 100 If Cel