Excel编程：如何判断奇数和偶数行并分别求值

在Excel中，你可以使用VBA（Visual Basic for Applications）来编写一个宏，用于判断奇数和偶数行，并对它们分别进行求值。以下是一个简单的VBA示例，它会在奇数行和偶数行上分别求和。

```vba

Sub SumOddEvenRows()

Dim ws As Worksheet

Set ws = ActiveSheet

Dim lastRow As Long

lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' 假设我们在列A进行计算

Dim sumOdd As Double

Dim sumEven As Double

sumOdd = 0

sumEven = 0

Dim i As Long

For i = 2 To lastRow Step 2 ' 从第二行开始，步长为2，即跳过偶数行

sumOdd = sumOdd + ws.Cells(i, 1).Value ' 假设我们在列A进行计算

Next i

For i = 3 To lastRow Step 2 ' 从第三行开始，步长为2，即跳过奇数行

sumEven = sumEven + ws.Cells(i, 1).Value ' 假设我们在列A进行计算

Next i

' 输出结果

ws.Cells(1, 2).Value = "Sum of Odd Rows: " & sumOdd

ws.Cells(2, 2).Value = "Sum of Even Rows: " & sumEven

End Sub

```

要运行此宏，请按照以下步骤操作：

1. 打开Excel，然后按下 `Alt + F11` 打开VBA编辑器。

2. 在VBA编辑器中，右键点击VBAProject（通常在左侧项目资源管理器中），选择“Insert” > “Module”来插入一个新模块。

3. 将上述代码复制并粘贴到新模块中。

4. 关闭VBA编辑器，回到Excel。

5. 按下 `Alt + F8`，选择 `SumOddEvenRows` 宏，然后点击“Run”来执行它。

这个宏会计算活动工作表中列A的奇数行和偶数行的总和，并将结果输出到第一行和第二行的B列。