在日常办公中，我们常常需要处理大量重复性的工作，比如数据整理、表格计算、邮件合并等。这些任务虽然看似简单，但若手动操作，不仅耗时费力，还容易出错。而VBA（Visual Basic for Applications）作为Excel等Microsoft Office软件内置的一种编程语言，可以帮助我们轻松实现自动化操作，大幅提升工作效率。
一、简单的数据统计
假设你有一个包含多列数据的Excel表格，每行代表一个员工的信息，包括姓名、部门、工资等。现在你需要统计每个部门的平均工资。如果用传统的方法，你可能需要逐个筛选、求和、再计算平均值，非常繁琐。但通过VBA，你可以轻松实现这一需求。
首先，打开Excel文件并按Alt+F11进入VBA编辑器。然后插入一个新的模块，并输入以下代码：
```vba
Sub DepartmentAverage()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets(1)
Dim lastRow As Long
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
Dim dict As Object
Set dict = CreateObject("Scripting.Dictionary")
Dim i As Long
For i = 2 To lastRow
Dim department As String
department = ws.Cells(i, 3).Value
Dim salary As Double
salary = ws.Cells(i, 4).Value
If Not dict.exists(department) Then
dict.Add department, Array(salary, 1)
Else
Dim currentInfo As Variant
currentInfo = dict(department)
currentInfo(0) = currentInfo(0) + salary
currentInfo(1) = currentInfo(1) + 1
dict(department) = currentInfo
End If
Next i
Dim resultRow As Long
resultRow = lastRow + 2
ws.Cells(resultRow, 5).Value = "Department"
ws.Cells(resultRow, 6).Value = "Average Salary"
Dim key As Variant
resultRow = resultRow + 1
For Each key In dict.keys
ws.Cells(resultRow, 5).Value = key
ws.Cells(resultRow, 6).Value = dict(key)(0) / dict(key)(1)
resultRow = resultRow + 1
Next key
End Sub
```
这段代码会遍历指定范围内的所有行，将每个部门的数据汇总到字典中，最后输出每个部门的平均工资。运行后，你会在表格的末尾看到一个新表，显示了每个部门及其对应的平均工资。
二、自动发送邮件
除了数据处理，VBA还可以用于自动化邮件发送。例如，当你完成了一项重要工作后，可能需要立即向领导汇报进度。通过VBA，你可以设置一个宏，当点击按钮时，自动将工作报告发送给指定的邮箱。
同样，在VBA编辑器中新建一个模块，并输入以下代码：
```vba
Sub SendEmail()
Dim olApp As Object
Dim olMail As Object
' 创建Outlook应用程序对象
Set olApp = CreateObject("Outlook.Application")
' 创建新的邮件对象
Set olMail = olApp.CreateItem(0)
With olMail
.To = "example@domain.com" ' 收件人邮箱
.Subject = "工作汇报" ' 邮件主题
.Body = "尊敬的领导，您好！这是本周的工作汇报，请查收。" ' 邮件正文
.Display ' 显示邮件窗口以便检查
'.Send ' 直接发送邮件
End With
' 清理对象
Set olMail = Nothing
Set olApp = Nothing
End Sub
```
这段代码创建了一个新的Outlook邮件对象，并设置了收件人、主题和正文。如果你想直接发送邮件而不是手动检查，可以取消注释`.Send`行。
三、总结
通过上述两个例子，我们可以看到，VBA不仅可以帮助我们完成复杂的批量操作，还能简化日常的沟通流程。掌握VBA编程技巧，不仅能提高工作效率，还能为职业生涯增添亮点。希望本文提供的实例能够激发你的兴趣，让你更深入地探索VBA的世界。
