如何在Excel VBA中添加奇数行的总和值

我需要帮助我的VBA代码，我想获得每个奇数行的总值（显示在表格（“报表”）。单元格（LastLine，i）.Value）。 在我的代码中，我只能得到总的奇数和偶数行值。 谢谢！
这是我的VBA代码：

'LastLine is a row number which have blank content Dim LastLine As Long LastLine = Range("B" & Rows.count).End(xlUp).Row + 2 For i = 4 To 21 Sheets("Report").Cells(LastLine, y).Select With Selection .Font.Bold = True .Font.Size = 10 .Interior.Color = RGB(135, 206, 250) End With Sheets("Report").Cells(LastLine, i).Value = WorksheetFunction.Sum(Range(Cells(2, i), Cells(65536, i))) Next 

Answer 1

首先从不使用select

让我们试试这个：

 'LastLine is a row number which have blank content Dim LastLine As Long, RunSum As Long LastLine = Range("B" & Rows.count).End(xlUp).Row + 2 For i = 4 To 21 With Sheets("Report").Cells(LastLine, y) 'Perhaps (LastLine, i)? .Font.Bold = True .Font.Size = 10 .Interior.Color = RGB(135, 206, 250) End With RunSum = 0 For CurRow = 3 to LastLine - 1 Step 2 RunSum = RunSum + Cells(CurRow, i).Value Sheets("Report").Cells(LastLine, i).Value = RunSum Next CurRow Next i