常用的Excel VBA办公用法及其代码示例（一)

VBA（Visual Basic for Applications）是Excel中非常强大的工具，它可以帮助我们自动化各种办公任务，提高工作效率。以下是一些常用的VBA办公用法及其代码示例：

1. 快速选择和操作工作表

vba

Sub SelectSheet()
    ' 选择名为"Sheet1"的工作表
    Sheets("Sheet1").Select
    ' 激活名为"Sheet1"的工作表，使其成为活动工作表
    Sheets("Sheet1").Activate
End Sub

2. 插入新工作表

vba

Sub InsertNewSheet()
    ' 定义一个变量用于引用新工作表
    Dim newSheet As Worksheet
    ' 在当前工作簿的最后一个工作表后插入一个新的工作表，并将引用赋给newSheet变量
    Set newSheet = Sheets.Add(After:=Sheets(Sheets.Count))
    ' 将新工作表命名为"NewSheet"
    newSheet.Name = "NewSheet"
End Sub

3. 复制工作表

Sub CopySheet()
    ' 复制名为"Sheet1"的工作表，并将其放置在所有工作表的最后
    Sheets("Sheet1").Copy After:=Sheets(Sheets.Count)
End Sub

4. 删除工作表

Sub DeleteSheet()
    ' 出错时忽略错误并继续执行
    On Error Resume Next
    ' 删除名为"SheetToDelete"的工作表
    Sheets("SheetToDelete").Delete
    ' 重置错误处理
    On Error GoTo 0
End Sub

5. 自动填充序列

Sub FillSeries()
    ' 将A1到A10的单元格值设置为1
    Range("A1:A10").Value = 1
    ' 从A1单元格开始向下填充序列
    Range("A1:A10").FillDown
End Sub

6. 条件格式化

Sub ConditionalFormatting()
    ' 为B1到B10的单元格添加条件格式化
    With Range("B1:B10").FormatConditions.Add(Type:=xlCellValue, Operator:=xlGreater, Formula1:="10")
        ' 当单元格值大于10时，设置单元格背景颜色为黄色
        .Interior.Color = RGB(255, 255, 0)
    End With
End Sub

7. 查找和替换

Sub FindAndReplace()
    ' 在整个工作表中查找"oldText"，并将其替换为"newText"
    Cells.Replace What:="oldText", Replacement:="newText", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub

8. 数据排序

Sub SortData()
    ' 对A1到B10的单元格区域进行排序，以A列为关键字，升序排列
    Range("A1:B10").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlYes
End Sub

9. 导入外部数据

Sub ImportData()
    ' 定义变量ws，引用当前工作簿中的"Sheet1"工作表
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    ' 在"Sheet1"工作表中导入C:\path\to\your\file.txt文件的数据
    ws.QueryTables.Add(Connection:="TEXT;C:\path\to\your\file.txt", Destination:=ws.Range("A1")).Refresh
End Sub

10. 执行宏命令

Sub RunMacro()
    ' 在当前工作簿中运行名为"YourMacro"的宏，该宏位于"YourWorkbook.xlsm"工作簿中
    Application.Run "'YourWorkbook.xlsm'!YourMacro"
End Sub

11. 文件操作（保存、打开）

Sub SaveWorkbook()
    ' 将当前工作簿另存为"C:\path\to\your\workbook.xlsx"
    ThisWorkbook.SaveAs "C:\path\to\your\workbook.xlsx"
End Sub

Sub OpenWorkbook()
    ' 打开位于"C:\path\to\your\workbook.xlsx"的工作簿
    Workbooks.Open "C:\path\to\your\workbook.xlsx"
End Sub

12. 插入图表

Sub InsertChart()
    ' 定义变量chartObj，用于引用新的图表对象
    Dim chartObj As ChartObject
    ' 在当前工作表中添加一个新的图表对象，并设置其位置和大小
    Set chartObj = ActiveSheet.ChartObjects.Add(Left:=100, Width:=375, Top:=50, Height:=225)
    ' 设置图表的数据源为"
    chartObj.Chart.SetSourceData Source:=Sheets("Sheet1").Range("A1:B10")
    chartObj.Chart.ChartType = xlColumnClustered
End Sub