资源描述：
《常用代码锦集.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、常调用代码锦集1.工作表Worksheets.Addbefore:=Worksheets(1)‘在sheet1前增加一个工作表Worksheets.Addafter:=Worksheets(1)’在工作表sheet1后增加一个工作表Worksheets.AddCount:=3‘在当前工作表前增加3个工作表Worksheets.Addafter:=Worksheets(1),Count:=3‘在sheet1后增加3个工作表Worksheets("Sheet10").Delete‘删除工作表Worksheets("Sheet2").
2、Copybefore:=Worksheets("Sheet2")‘在sheet2前复制一个副本Worksheets("Sheet2").Copyafter:=Worksheets("Sheet2")‘在sheet2后复制一个副本Worksheets("Sheet2").Copy‘复制sheet2到新的工作簿2.工作簿Workbooks.OpenFilename:="E:baiduyundownload打开工作簿实例.xls"‘打开工作簿Workbooks.OpenFilename:=D:a.xls,UpdateLinks:
3、=0,editable:=True'打开文件,属性设置为不更新,可编辑a=Workbooks("VBA函数记录.xls").Path‘返回工作簿的绝对路径不包含文件名a=ThisWorkbook.FullName‘本工作簿的绝对路径a=CurDir‘返回当前工作簿的路径，不包含文件名Workbooks("打开工作簿实例.xls").Close‘关闭工作簿Workbooks("打开工作簿实例.xls").Closesavechanges:=True’关闭并保存工作簿ThisWorkbook.Save‘本工作簿保存ThisWorkb
4、ook.SaveAsFilename:="E:备份1.xls"本工作簿保存为，并打开新工作簿ThisWorkbook.SaveCopyAsFilename:="E:备份.xls"‘本工作簿另存为，留在本工作簿Workbooks.Add’增加工作簿Workbooks("打开工作簿实例.xls").Activate3.单元格Range("a1").Select'单元格Range("a:a").Select'列Range("1:3").Select'行Range("a1:b10").Select'相邻区域Range("a1:d7,
5、c4:e8").Select'不相个邻区域Range("a1:b10").Select'一般写法Range("a1","b10").Select'变化写法1Range(Range("a1"),Range("b10")).Select'变化写法2Range("a:a").Count'计数工作表最大的行数Range("1:1").Count'计算工作表最大的列数Application.CountA(Range("a:a"))'计算工作表已使用的行数Application.CountA(Range("1:1"))'计算工作表已使用的列
6、数i=Application.CountA(Range("c:c"))'找到c列中已使用的最后一个单元格位置Range("b2:d4").Range("b2").Select'相对引用的写法,参照前一个range的左上单元格Range("c3:e5")(2).Select‘选定d3，引用顺序是：从左向右，从上到下选取Range("a1:c4")(3,2).Select'利用行号与列号定位，选中B3Cells(3,4).Select'行列号均为数字，cells不能引用一个区域，只能引用一个单元格Cells(2,"c").Selec
7、t'行为数字，列为列标字母Range("b3:f11").Cells(2,2).SelectRange("b3:f11").Cells(6).Select'从左到右，从上到下Range("b3:f11")(6).Select'与上一句相等Range(Range("b1"),Range("f11")).Select'这种嵌套方法写变量比较麻烦Range(Cells(3,2),Cells(11,6)).Select'这种嵌套方法写变量比较方便[a1].EntireColumn.Select选取a1单元格所在整列，后面还有知识要学[a
8、1:a4].EntireRow.Select‘选取a1:a4所在的整行，后面还有知识要学[a3].Select'单元格引用[b2:c6].Select'单元格区域引用[a3,b2:c6,b8:d12].Select'多区域引用[a:a].Select'整列引用[
