以下是10个使用 VBA 一行代码完成简单 Excel 任务的示例，每个示例都简洁高效，适合快速自动化操作。这些代码假设在 Microsoft Excel 的 VBA 编辑器中运行（按 Alt + F11 打开编辑器，插入模块后粘贴代码）。运行前需确保有选定的单元格或区域，否则可能报错。可通过 Alt + F8 运行宏或分配给按钮执行。

1. 将选定单元格背景色设置为黄色

Sub SetYellowBackground()
    Selection.Interior.Color = vbYellow
End Sub

功能：将当前选定区域的背景色设置为黄色。

2. 清除选定单元格内容

Sub ClearContent()
    Selection.ClearContents
End Sub

功能：清除当前选定区域的单元格内容，保留格式。

3. 将选定单元格字体加粗

Sub BoldFont()
    Selection.Font.Bold = True
End Sub

功能：将选定区域的字体设置为粗体。

4. 复制选定区域到新工作表

Sub CopyToNewSheet()
    Selection.Copy Worksheets.Add.Range("A1")
End Sub

功能：复制当前选定区域，粘贴到新建工作表的 A1 单元格。

5. 设置选定单元格为货币格式

Sub SetCurrencyFormat()
    Selection.NumberFormat = "$#,##0.00"
End Sub

功能：将选定单元格的数字格式设置为货币（美元）。

6. 自动调整选定列宽

Sub AutoFitColumns()
    Selection.Columns.AutoFit
End Sub

功能：自动调整选定区域所在列的宽度以适应内容。

7. 在选定单元格插入当前日期

Sub InsertDate()
    Selection.Value = Date
End Sub

功能：在选定单元格中输入当前日期。

8. 隐藏当前工作表

Sub HideSheet()
    ActiveSheet.Visible = xlSheetHidden
End Sub

功能：隐藏当前活动的工作表。

9. 将选定单元格文本转换为大写

Sub ConvertToUpper()
    Selection.Value = UCase(Selection.Value)
End Sub

功能：将选定单元格中的文本内容转换为大写。

10. 为选定区域添加边框

Sub AddBorders()
    Selection.Borders.LineStyle = xlContinuous
End Sub

功能：为选定区域添加连续线边框。

使用说明

• 运行环境：在 Excel VBA 编辑器中创建模块，粘贴以上代码。
• 运行方式：按 Alt + F8 选择宏运行，或绑定到按钮。
• 注意事项：确保运行前已选定单元格或区域，避免错误。
• 扩展性：这些示例可作为基础，结合循环、条件等扩展功能。