《Excel word ppt office使用技巧大全(DOC格式)》第8章

工作表中的某一单元格、某一行、某一列、某一选定区域（该选定区域可包含一个或若干连续　
单元格区域）或者某一三维区域。　可用Range（arg）来引用单元格或单元格区域，其中arg可为　
单元格号、单元格号范围、单元格区域名称。如　Range（〃A5〃）　、Range（〃A1：H8〃）　、　
Range（〃Criteria〃）。虽然可用Range（〃A1〃）返回单元格A1，但用Cells更方便，因为此时可用　
变量指定行和列。　可将Range与Cells结合起来使用，如Range（Cells（1；1）；Cells（10；10））代　
表单元格区域〃A1：J10〃；而expression。Cells（row；column）返回单元格区域中的一部分，其中　
expression是返回Range　的表达式，row和column为相对于该区域的左上角偏移量。如由　
Range（〃C5：C10〃）。Cells（1；1）引用单元格C5。　Areas为选定区域内的连续单元格块的集合，其　
成员是Range对象。而其中的每个Range对象代表选定区域内与其它部分相分离的一个连续单元　
格块。某些操作不能在选定区域内的多个单元格块上同时执行；必须在选定区域内的单元格块　
数Areas。Count上循环，对每个单独的单元格块分别执行该操作。此时，可用Areas（index）从　
集合中返回单个Range对象，其中index为单元格块编号；如Areas（1）。　5、　行与列：Rows、　
Columns、Row、Column　Rows、Columns分别代表活动工作表、单元格区域范围Range、指定工　
作表中的所有行数、列数。对于一个多选单元格区域范围Range的Rows、Columns，只返回该范　
围中第一个区域的行数、列数。例如，如果Range对象有两个区域（areas）A1：B2和C3：D4，　
Rows。Count返回2而不是4。
XXXI
…………………………………………………………Page　32……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
可通过Rows（行号）、Columns（列号）来引用相应的行与列；如Rows（3）、Columns（4）分别对应第　
三行、D列。　利用Rows、Column可以获得区域中第一块的第一行行号、第一列列号，所得值均　
以十进制数表示。　三）、处理单元格　1、直接赋值与引用　将变量、常量值直接赋给单元格、　
或将单元格的值直接赋给变量、常量，这是在Excel中最简单的单元格赋值及引用方法。如下　
例将工作表〃Sheet1〃A1单元格的值赋给Integer变量I，并将I＋1的值赋给当前工作表中的B1单　
元格：　Dim　I　As　Integer　I=Worksheets（〃Sheet1〃）。Cells（1；1）　Cells（1；2）。Select　"选定　
B1单元格，使其成为当前单元格　ActiveCell=I＋1　"以I＋1为当前单元格赋值　2、用公式赋值　在　
宏的使用中，可能会更多地用公式来给单元格赋值。如下例将相对于活动单元格左侧第4列、　
向上第6行至向上第2行的单元格数值之和赋给活动单元格（以本行、本列为第0行、0列）：
ActiveCell。Formula=〃=AVERAGE（R＇…6＇C＇…4＇：R＇…2＇C＇…4＇）〃　3、引用其它工作表中的单元格
当赋值公式中需要引用其它工作表中的单元格时，在被引用的单元格前加上〃工作表名！〃即可。　
如　以　下　即　在　赋　值　中　引　用　了　〃Sheet1〃　工　作　表　中　的　A1　至　A4　单　元　格　：
Range（〃E10〃）。Formula=〃=SUM（Sheet1！R1C1：R4C1）〃　但需注意的是：当被引用的工作表名中含　
有某些可能引起公式歧义的字符时，需要用单引号　"　将工作表名括起来。如：
Worksheets（〃Sheet1〃）。ActiveCell。Formula=〃=Max（"1…1剖面"！D3：D5）〃　4、引用其它工作簿　
中的单元格　在被引用单元格所在工作表名前加上〃＇工作簿名＇〃，即可引用其它工作簿中的单　
元格。如：　ActiveCell。Formula=〃=MAX（＇Book1。xls＇Sheet3！R1C：RC＇4＇）〃　同样需注意的是：　
当被引用的工作簿名中含有某些可能引起公式歧义的字符时，需要用中括号〃＇〃、〃＇〃及单引号　
"将工作簿名括起来。如：　Cells（1；2）。Formula=〃=MIN（"＇1995…2000总结。xls＇1995…1996年"！
A1：A6）〃　5、避免循环引用　在上述公式赋值过程中，应避免在公式中引用被赋值的单元格，　
防止循环引用错误。　6、添加批注　可按如下方法格给单元格添加批注：　Dim　批注文本　As
String 批注文本　=〃　批注示例　〃　"准备批注文本 ActiveCell。Addment　"　添加批注
ActiveCell。ment。Text　Text：=临时　"写入批注文本　ActiveCell。ment。Visible=False
"隐藏批注　7、添加、删除、复制、剪切、粘贴单元格　Range（〃D10〃）。Insert　Shift：=xlToRight
"在D10单元格处添加一新单元格，原D10格右移　Range（〃C2〃）。Insert　Shift：=xlDown　"在C2　
单元格处添加一新单元格，原C2格下移　Rows（2）。EntireRow。Insert　"在第2行前添加一空白　
行，原第2行下移　Columns（3）。EntireColumn。Insert　"在C列前添加一空白列，原C列右移
Columns（〃A：D〃）。Delete　Shift：=xlToLeft　"删除A列至D列，其右侧列左移
XXXII
…………………………………………………………Page　33……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
Rows（〃3：5〃）。Delete Shift：=xlUp "　删　除　第　3　行　至　第　5　行　，　其　下　方　行　上　移
Range（〃B2〃）。EntireRow。Delete　"删除第2行　Range（〃C4〃）。EntireColumn。Delete　"删除C列
Range（〃B10：C13〃）。Copy　"　复制B10　至C13　单元格区域 Cells（1；2）。Cut　"　剪切B1　单元格
Range（〃D10〃）。Select　ActiveSheet。Paste　"　自D10单元格起粘贴剪贴板中的内容　四）、图表　1、　
工作表图表　以下为一添加工作表图表的实例。　Charts。Add　after：=Worksheets（〃Sheet1〃）　"　
在〃Sheet1〃工作表之后添加新图表工作表　ActiveChart。ChartType=xlXYScatterSmooth　"图　
表类型为　XY　平滑线散点图 ActiveChart。SetSourceData　Source：=Sheets（〃　结点坐标　
〃）。Range（〃A1：B69〃）；　PlotBy：=　_　xlColumns　"图表数据来源于〃结点坐标〃工作表的A1至B69　
单　元　格　，　且　按　列　绘　图　。 ActiveChart。Location Where：=xlLocationAsNewSheet With
ActiveChart　。HasTitle　=　True　。ChartTitle。Characters。Text　=　〃节点坐标〃　"图表标题〃　
节　点　坐　标　〃 。Axes（xlCategory； xlPrimary）。HasTitle = True 。Axes（xlCategory；
xlPrimary）。AxisTitle。Characters。Text = 〃x〃 "x 轴　标　题 〃x〃 。Axes（xlValue；
xlPrimary）。HasTitle　=　True　。Axes（xlValue；　xlPrimary）。AxisTitle。Characters。Text　=　〃y〃
"y轴标题〃y〃　End　With　With　ActiveChart。Axes（xlCategory）　。HasMajorGridlines　=　True　"　
显示x轴主网格线，默认情况下为显示　。HasMinorGridlines　=　True　"显示x轴次网格线，默认　
情况下为不显示　End　With　With　ActiveChart。Axes（xlValue）　。HasMajorGridlines　=　True　"　
标出x轴主网格值，默认情况下为标注　。HasMinorGridlines　=　False　"取消x轴次网格值标注，　
默认情况下为不标注　End　With　ActiveChart。Legend。Position　=　xlRight　"图例显示在图表　
右侧　2、嵌入式图表　嵌入式图表仅在添加方式及引用格式上与工作表图表有所不同，而对图　
表的设置基本类似。详见下例。　Set嵌入表=ActiveSheet。ChartObjects。Add（0；0；200；300）　"　
在当前工作表　（0；0）坐标处添加宽200，高300的嵌入式图表　嵌入表。Chart。ChartType　=
xlColumnClustered "　图　表　类　型　为　簇　状　柱　形　图 嵌　入　表　。Chart。SetSourceData
Source：=Sheets（1）。Range（〃A2：B2〃）；　PlotBy：=xlRows　"　设置图表数据来源 With 嵌入　
表。Chart　。HasTitle　=　False　"无图表标题　。Axes（xlCategory；　xlPrimary）。HasTitle　=　False
"无x轴标题　。Axes（xlValue；　xlPrimary）。HasTitle　=　False　"无y轴标题　End　With