Question

我需要帮助我的VBA代码，我想得到总值（显示在Sheets（＆＃34; Report＆＃34;）。Cells（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

首先NEVER use 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

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

1 个答案: