请示范一个简单的Excel VBA开发案例

当然，下面是一个简单的Excel VBA开发案例：

案例描述： 公司有一个员工信息表格，包含员工姓名、部门、职位和工资等信息。现在需要根据部门统计每个部门的总工资。

步骤：

1. 打开Excel并创建一个新的工作表。
2. 在第一行输入表头，包括姓名、部门、职位和工资等列名。
3. 在每个列下面输入相应的员工信息。
4. 按下“ALT + F11”打开VBA编辑器。
5. 在VBA编辑器中，点击“插入”菜单，选择“模块”。
6. 在新建的模块中输入以下代码：

Sub CalculateTotalSalary()
    Dim LastRow As Long
    Dim TotalSalary As Double
    Dim Department As String
    
    ' 找到最后一行
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 循环遍历每一行
    For i = 2 To LastRow
        ' 获取部门名称和工资
        Department = Cells(i, 2).Value
        Salary = Cells(i, 4).Value
        
        ' 根据部门名称累加工资
        Select Case Department
            Case "部门A"
                TotalSalary = TotalSalary + Salary
            Case "部门B"
                TotalSalary = TotalSalary + Salary
            Case "部门C"
                TotalSalary = TotalSalary + Salary
            ' 添加其他部门的情况
        End Select
    Next i
    
    ' 在最后一行下方输出总工资
    Cells(LastRow + 1, 2).Value = "总工资"
    Cells(LastRow + 1, 4).Value = TotalSalary
End Sub

7. 关闭VBA编辑器。
8. 在Excel中按下“ALT + F8”打开宏对话框。
9. 选择刚才创建的宏“CalculateTotalSalary”，点击“运行”按钮。
10. 程序将会根据部门统计每个部门的总工资，并在最后一行输出结果。

这只是一个简单的示例，你可以根据实际需求进行更复杂的开发和功能扩展