有个excel中的小程序，怎么也通不过，高手帮帮忙吧

Sub Macro3()hs = ActiveSheet.Cells.SpecialCells(xlLastCell).Rowcol1 = 27row1 = hszhouqi = 16For row1 = 1 To hsa = Cells(row1, 26).ValueFor zhouqi = 16 To 25For i = 1 To a Cells(row1, zhouqi + 11).Value = Cells(row1, zhouqi + 11).Value + Cells(row1, zhouqi - i).Value Next i Next zhouqi Next row1 End Sub 收起