轻松掌握基础功能! 给excel初学者的16个VBA基本代码

2026-01-13 14:48:07 脚本之家

对于Excel VBA初学者来说，试着运行并理解一些基本代码，是快速学习掌握VBA基础的捷径。下面提供了16个很基础的代码，供参考。

微软Office LTSC 2021专业增强版简体中文批量许可版 2024年09月更新

类型：办公软件
大小：2.2GB
语言：简体中文
时间：2024-09-12

代码1：访问Excel工作表单元格并使用消息框显示其中的值

Sub Example1()
    '在消息框中显示单元格A1中的值
    MsgBox Range("A1")
    '也可以使用Cell对象引用单元格A1
    MsgBox Cells(1, 1) '第1个数值代表行号,第2个数值代表列号
End Sub

代码2：在指定单元格中输入值

Sub Example2()
    '在单元格A1中输入数据
    Range("A1") = "Hi! 完美Excel."
    '同样可以使用Cell对象
    Cells(3, 2) = "Hi! 完美Excel." '这里的3代表行号,2代表列号
End Sub

代码3：给指定单元格区域添加背景色

Sub Example3()
    '使用Interior.ColorIndex属性设置单元格色
    Range("B1:B5").Interior.ColorIndex = 5 ' 5=蓝色
End Sub

代码4：改变指定单元格区域中字体颜色

Sub Example4()
    '使用Font对象的Interior.ColorIndex属性设置颜色
    Range("A1:A10").Font.ColorIndex = 3 ' 3=红色
End Sub

代码5：改变指定单元格中字母的大小写

Sub Example5()
    '使用UCase函数将文本转换成大写
    Range("A2").Value = UCase(Range("A2").Value)
    '使用LCase函数将文本转换成小写
    Range("A3").Value = LCase(Range("A3").Value)
End Sub

代码6：将数据从一个单元格区域复制到另一个单元格区域

Sub Example6()
    '使用Copy方法
    Range("A1:A10").Copy Destination:=Range("E1")
End Sub

代码7：选择或激活指定工作表

Sub Example7()
    '使用Select方法
    Sheet2.Select
    '使用Activate方法
    Sheet1.Activate
End Sub

代码8：获取当前工作表和工作簿名称

Sub Example8()
    '使用ActiveSheet.Name属性获取当前工作表名称
    MsgBox ActiveSheet.Name
    '使用ActiveWorkbook.Name属性获取当前工作簿名称
    MsgBox ActiveWorkbook.Name
End Sub

代码9：添加工作表并重命名，删除指定工作表

Sub Example9()
    '使用Add方法添加工作表
    Sheets.Add
    '使用工作表的Name属性重命名工作表
    ActiveSheet.Name = "MySheet"
    '使用Delete方法删除工作表
    Sheets("MySheet").Delete
End Sub

代码10：创建新工作簿，访问当前工作簿指定工作表单元格，保存工作簿及关闭工作簿

Sub Example10()
    '使用Add方法添加工作簿
    Workbooks.Add
    '访问当前工作簿指定工作表单元格
    ActiveWorkbook.Sheets("Sheet1").Range("A1") = "示例数据"
    '将当前工作簿保存到默认文件夹
    ActiveWorkbook.SaveAs "MyNewWorkbook.xls"
    '关闭当前工作簿
    ActiveWorkbook.Close
End Sub

代码11：隐藏或取消隐藏行或列

Sub Example11()
    '使用Hidden属性
    Rows("2:5").Hidden = True '隐藏第2行至第5行
    Rows("2:5").Hidden = False '取消隐藏第2行至第5行
    '使用Hidden属性
    Columns("B:D").Hidden = True '隐藏列B至列D行
    Columns("B:D").Hidden = False '取消隐藏列B至列D
End Sub

代码12：插入或删除行或列

Sub Example12()
    '使用Insert方法和Delete方法
    Rows(6).Insert '在第6行插入一行
    Rows(6).Delete '删除第6行
    '使用Insert方法和Delete方法  
    Columns("B").Insert '在列B前插入一列
    Columns("B").Delete '删除列B
End Sub

代码13：调整行高或列宽

Sub Example13()
    '使用RowHeight属性和ColumnWidth属性 
    Rows(2).RowHeight = 30
    Columns(2).ColumnWidth = 36
End Sub

代码14：合并或取消合并单元格

Sub Example14()
    '使用Merge方法 
    Range("A11:A15").Merge
    '使用UnMerge方法
    Range("A11:A15").UnMerge
End Sub

代码15：If语句执行判断

Sub Example15()
    '比较单元格A2和单元格A3中的值
    If Range("A2").Value = Range("A3") Then
        MsgBox "True"
    Else
        MsgBox "False"
    End If
End Sub

代码16：使用For循环

Sub Example16()
    Dim i As Integer
    For i = 1 To 1000
        Cells(i, 5) = i '在列E输入1至1000
    Next i
    '提示输入完成
    MsgBox "已完成!在列E已经输入了1000个整数."
End Sub