Sub Example1()
    '在消息框中顯示單元格A1中的值
    MsgBox Range("A1")
    '也可以使用Cell對象引用單元格A1
    MsgBox Cells(1, 1) '第1個數值代表行號,第2個數值代表列號
End Sub

Sub Example2()
    '在單元格A1中輸入數據
    Range("A1") = "Hi! 完美Excel."
    '同樣可以使用Cell對象
    Cells(3, 2) = "Hi! 完美Excel." '這里的3代表行號,2代表列號
End Sub

Sub Example3()
    '使用Interior.ColorIndex屬性設置單元格色
    Range("B1:B5").Interior.ColorIndex = 5 ' 5=藍色
End Sub

Sub Example4()
    '使用Font對象的Interior.ColorIndex屬性設置顏色
    Range("A1:A10").Font.ColorIndex = 3 ' 3=紅色
End Sub

Sub Example5()
    '使用UCase函數將文本轉換成大寫
    Range("A2").Value = UCase(Range("A2").Value)
    '使用LCase函數將文本轉換成小寫
    Range("A3").Value = LCase(Range("A3").Value)
End Sub

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

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

Sub Example8()
    '使用ActiveSheet.Name屬性獲取當前工作表名稱
    MsgBox ActiveSheet.Name
    '使用ActiveWorkbook.Name屬性獲取當前工作簿名稱
    MsgBox ActiveWorkbook.Name
End Sub

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

Sub Example10()
    '使用Add方法添加工作簿
    Workbooks.Add
    '訪問當前工作簿指定工作表單元格
    ActiveWorkbook.Sheets("Sheet1").Range("A1") = "示例數據"
    '將當前工作簿保存到默認文件夾
    ActiveWorkbook.SaveAs "MyNewWorkbook.xls"
    '關閉當前工作簿
    ActiveWorkbook.Close
End Sub

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

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

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

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

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

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