1.激活单元格

Range("w11").Activate

2.给单元格添加批注

range("w11").AddComment"添加批注"

3.将单元格文本的对齐方式设置为等距分布

Range("w11").AddIndent = ture

4.取单元格地址

MsgBox Range("w11").Address()

5.以用户语言返回对指定区域的区域引用

MsgBox Range("w11").AddressLocal()

6.通知用户是否可编辑受保护的工作表上的单元格 A11。

    Dim wksOne As Worksheet
    Set wksOne = Application.ActiveSheet
    If wksOne.Range("A11").AllowEdit = True Then
        MsgBox "A11可以编辑"
    Else
        MsgBox "A11不能编辑"
    End If

7.将名称应用于指定区域中的单元格。

Range("w11").ApplyNames Names:=Array("Sales", "Profits")

8.对指定区域应用分级显示样式。

Range("w11").ApplyOutlineStyles

9.返回只包含一个对象的集合

MsgBox Range("w11").Areas.Count
10.对指定区域中的单元格进行自动填充

Set SourceRange = Range("x1:x2")
Set fillRange = Range("x1:x20")
SourceRange.AutoFill Destination:=fillRange

11.使用“自动筛选”筛选出一个列表

    Range("w1").AutoFilter _
    field:=1, _
    Criteria1:="李欢", _
    VisibleDropDown:=ture

12.将区域中的列宽和行高调整为最适当的值。

 Range("A1:E1").Columns.AutoFit

13.自动格式设置

Range("w11").AutoFormat

14.自动为指定区域创建分级显示。

Range("w1:y34").AutoOutline

15.向单元格区域添加边框，并设置该边框的 Color、LineStyle 和 Weight 属性。

 Range("w11").BorderAround _
              ColorIndex:=3, Weight:=xlThick

16.单元格的边框设置

 With Range("w21").Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThick
End With
17.计算所有打开的工作簿、工作簿中的一张特定的工作表或者工作表中指定区域的单元格

Range("a1:z5").Calculate
18.使用 Characters 对象向文本框中添加字符和设置字符的格式。

Range("w31").Characters.Text = "wo"

19.要仅对单元格和附注进行检查

Range("w51").CheckSpelling

20.清除 单元格区域的公式和格式设置。

Range("w41").Clear

21.清除指定区域的所有单元格批注

Range("x41").ClearComments

22.清除指定区域的公式。清除图表中的数据但保留格式设置。

Range("x41").ClearContents

23.清除对象的格式设置。

Range("x41").ClearFormats

24.清除指定区域中所有单元格的附注和语音批注。

Range("x41").ClearNotes

25.清除指定区域的分级显示。

Range("x41").ClearOutline

26.返回指定区域中第一块中的第一列的列号

MsgBox Range("x41").Column

27.返回一个 指定对象，该对象代表每列中所有与比较单元格内容不同的单元格。

Set a = Columns("x").ColumnDifferences(Range("x13"))
a.Select

28.返回 Range 对象，该对象代表指定单元格区域中的列

Range("x1:z12").Columns(2).Value = 2

29.返回或设置指定区域中所有列的列宽

 Range("x41").ColumnWidth = 5

30.将单元格区域复制到指定的区域或剪贴板中。

Range("x41").Copy _
    Destination:=Range("w11")

31.将工作表 Sheet1 上 A1:D4 单元格的屏幕图像复制到剪贴板，并将其位图粘贴到工作表

Range("A1:D4").CopyPicture xlScreen, xlBitmap
    Paste _
    Destination:=Range("x41")
32.显示选定区域中的列数

MsgBox Range("x41:y50").Count

33.在指定区域中依据工作表中的文字标志创建名称。

Range("x41:y43").CreateNames Left:=True

34.显示一条有关 Excel 工作簿的创建者的消息。

MsgBox Range("x41").Creator

35.该对象代表当前的区域。

ActiveCell.CurrentRegion.Select

36.将对象剪切到剪贴板，或者将其粘贴到特定的目的地。

Range("x41").Cut

37.在指定区域内创建数据系列

MsgBox Range("x41").DataSeries(Type:=xlChronological, Date:=xlMonth)

38.删除对象。

Range("x41:y55").Delete Shift:=xlShiftToLeft

39.返回对象代表包含单元格所有依赖条件的区域。

Range("x41").Dependents.Select

40.该对象代表包含一个单元格所有直接依赖条件的区域

Range("x41").DirectDependents.Select

41.返回对象代表包含一个单元格所有直接引用单元的区域。

Range("x41").DirectPrecedents.Select

42.下一次重新计算发生时指定要重新计算的单元格区域。

Range("x41").Dirty

43.返回该对象代表包含源区域的区域尾端的单元格。

Range("x41").End(xlToRight).Select

44.返回该对象代表包含指定区域的整个列（或若干列）。

Range("x41").EntireColumn.Select

45.返回该对象代表包含指定区域的整个列（或若干列）。

Range("x41").EntireRow.Select

46.允许用户访问错误检查选项。

MsgBox Range("x41").Errors.Item(xlNumberAsText).Value

47.从指定区域的顶部单元格开始向下填充，直至该区域的底部。

Range("y26:y36").FillDown
48.从指定区域的最右边单元格开始向左填充。

Range("x41:x43").FillLeft

49.从指定区域的最左边单元格开始向右填充。

Range("x41:x43").FillRight

50.从指定区域的底部单元格开始向上填充。
Range("x41:x43").FillUp

51.找到需要的单元格

With Worksheets(1).Range("x39:x56")
    Set c = .Find(56, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            c.Value = 5
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With

52.设置字体属性

Range("x41").Font.Name = "Arial"

53.设置单元格公式

 Range("x41").Formula = "=$A$4+$A$10"

54.设置单元格公式数组

 Range("x41:x43").FormulaArray = _
    "=Sum(R1C1:R3C3)"

55.在工作表处于保护状态时，隐藏 单元格 的公式。

  Range("b9").FormulaHidden = ture

56.对指定区域左上角单元格启动函数向导。

Range("w37").FunctionWizard

57.如果指定单元格是数组公式的一部分，则该值为 True。

MsgBox Range("x37").HasArray

58.如果区域中所有单元格均包含公式，则该值为 True；如果所有单元格均不包含公式，则该值为 False；

MsgBox Range("w37").HasFormula

59.隐藏单元格

Columns("C").Hidden = False

60.设置 单元格区域 对齐方式为左对齐。

Range("x37:z45").HorizontalAlignment = xlLeft

61.将单元格 缩进量增加

Range("x35").IndentLevel = 8
62.插入单元格

Range("x35").Insert (xlShiftDown)

63.向指定的区域添加缩进量

Range("x22").InsertIndent 3

64.设置单元格的Interior属性

 Range("x23").Interior.ColorIndex = 20

65.调整区域内的文字，使之均衡地填充该区域

Range("x23").Justify

66.从 A 列左边界至该区域左边界的距离。

MsgBox Range("x1").Left

67.返回指定区域中标题行的行数

MsgBox Range("b6").CurrentRegion.ListHeaderRows

68.从指定区域的第一个单元格位置开始，将所有未隐藏的名称的列表粘贴到工作表上。

Range("x23").ListNames

69.区域单元格的锁定，及解除

Range("x23").Locked = False

70.给合并区赋值

Set ma = Range("y41").MergeArea
If ma.Address = "$y$41" Then
    MsgBox "not merged"
Else
    ma.Cells(1, 1).Value = "42"
End If

71.定位追踪箭头，此箭头指定引用单元格、从属单元格或错误源单元格。

Range("y45").NavigateArrow True, 1

72.返回一个 Comment 对象，该对象代表下一条批注。

Range("y45").Comment.Next.Visible = False

73.返回或设置与区域左上角单元格相关联的单元格注释。

Range("y45").NoteText "哈哈"

74.对单元格数字格式进行设置。

Range("y45").NumberFormat = "General"
75.激活 活动单元格向右偏移三列、向下偏移三行处的单元格。

Range("y45").Offset(3, 3).Activate

76.在工作表设置一个手动分页符。

Range("y45").PageBreak = xlPageBreakManual

77.分析区域内的数据并将这些数据分散放置于若干单元格中。

Columns("aa").Parse _
    parseLine:="[xxx] [xxxx]", _
    Destination:=Range("ab1")

78.单元格y44和单元格区域y43原有内容的和来取代单元格区域

Range("y43").Copy
Range("y45").PasteSpecial _
        Operation:=xlPasteSpecialOperationAdd

79.本示例打印当前活动工作表

Range("y43").PrintOut

80.打印预览

Range("y43").PrintPreview

下不详叙