在日常办公中，Excel 是一款不可或缺的工具，而宏代码则能极大地提升工作效率。通过录制或编写宏代码，我们可以实现自动化操作，减少重复性劳动。以下是一些常用的 Excel 宏代码示例，供您参考和学习。
1. 快速填充单元格颜色
如果你需要快速给某些单元格添加背景色，可以使用以下代码：
```vba
Sub FillCellColor()
Dim rng As Range
On Error Resume Next
Set rng = Application.InputBox("请选择要填充颜色的单元格区域:", Type:=8)
If Not rng Is Nothing Then
rng.Interior.ColorIndex = 3 ' 设置为红色（ColorIndex=3）
End If
End Sub
```
这段代码会弹出一个对话框，允许用户选择需要填充颜色的单元格范围，并将选中的区域设置为红色。
2. 删除所有空行
在处理数据时，难免会遇到一些空行，这些空行可能会影响后续的数据分析。以下是删除所有空行的代码：
```vba
Sub DeleteEmptyRows()
Dim ws As Worksheet
Dim i As Long
Set ws = ActiveSheet
i = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
Do While i >= 1
If Application.WorksheetFunction.CountA(ws.Rows(i)) = 0 Then
ws.Rows(i).Delete
Else
i = i - 1
End If
Loop
End Sub
```
运行此代码后，所有包含完全空白的行都会被自动删除。
3. 合并并居中标题
当你制作报表时，通常需要将标题居中显示。以下代码可以帮助你快速完成这一任务：
```vba
Sub MergeAndCenterTitle()
Dim ws As Worksheet
Dim titleRange As Range
Set ws = ActiveSheet
Set titleRange = ws.Range("A1:D1") ' 根据实际需求调整范围
With titleRange
.MergeCells = True
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Font.Bold = True
End With
End Sub
```
只需运行该代码，指定范围内的标题就会被合并并居中对齐。
4. 自动保存文件
有时候我们需要定期保存工作簿，避免因意外导致数据丢失。以下代码可以让 Excel 自动每隔一段时间保存一次：
```vba
Sub AutoSaveWorkbook()
Dim fileName As String
fileName = ThisWorkbook.Path & "\" & ThisWorkbook.Name
Application.DisplayAlerts = False
ThisWorkbook.SaveAs Filename:=fileName
Application.DisplayAlerts = True
End Sub
' 每隔5分钟自动保存一次
Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:05:00"), "AutoSaveWorkbook"
End Sub
```
此代码会在打开工作簿时启动定时器，每5分钟自动保存一次当前文件。
5. 批量重命名工作表
如果需要一次性更改多个工作表的名字，可以使用以下代码：
```vba
Sub RenameSheets()
Dim ws As Worksheet
Dim newName As String
For Each ws In ThisWorkbook.Sheets
newName = InputBox("请输入新的工作表名称:", "重命名工作表", ws.Name)
If newName <> "" Then
ws.Name = newName
End If
Next ws
End Sub
```
运行此代码后，程序会逐一提示输入每个工作表的新名字。
总结
以上是几个常见的 Excel 宏代码示例，涵盖了格式设置、数据清理以及自动化功能等方面。通过灵活运用这些代码，您可以显著提高工作效率。当然，宏代码的学习是一个循序渐进的过程，建议从简单的例子开始，逐步掌握更多高级技巧。希望这些代码能够帮助到您！
