=SUMPRODUCT(F9:F35,E9:E35)=SUMPRODUCT(F9:F35,E9:E35)

=SUMPRODUCT(F9:F35,E9:E35)

8.加公式(不知道公式格式，请录制宏，抽出宏中公式格式。)
excelworksheet1.Cells.Item[row,10].Formula:='=R[-1]C+RC[-1]';
ExApp.cells[9+iLoop,6].value:='=SUM(G'+ inttostr(9+iLoop)+':H'+ inttostr(9+iLoop)+')';