资源描述:
《excelvba代码选择单元格和区域示例》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、目录如何选择当前工作表中的单元格?如何选择同一工作簿中其它工作表上的单元格?如何选择不同工作簿中的单元格?如何选择当前工作表中的单元格区域?如何选择同一工作簿中另一工作表上的单元格区域?如何选择不同工作簿中工作表上的单元格区域?如何在当前工作表中选择命名区域?如何选择同一工作簿中另一工作表上的命名区域?如何选择不同工作簿中工作表上的命名区域?如何选择与当前单元格相关的单元格?如何选择与另一单元格(不是当前单元格)相关的单元格?如何选择偏离指定区域的一个单元格区域?如何选择一个指定的区域并扩展区域的大小?如何选
2、择一个指定的区域,再偏离,然后扩展区域的大小?如何选择两个或多个指定区域?如何选择两个或多个指定区域的交叉区域?如何选择连续数据列中的最后一个单元格?如何选择连续数据列底部的空单元格?如何选择某列中连续数据单元格区域?如何选择某列中非连续数据单元格区域?如何选择一个矩形(规则的)单元格区域?如何选择多个不同长度的非连续列?引用工作表上的所有单元格使用A1表示法引用单元格和区域引用行和列使用索引号引用单元格使用快捷表示法引用单元格使用Range对象引用单元格引用命名区域引用多个区域处理三维区域如何选择当前工作表
3、中的单元格?例如,可以使用下面的代码选择当前工作表中的单元格D5:ActiveSheet.Cells(5,4).Select或:ActiveSheet.Range("D5").Select如何选择同一工作簿中其它工作表上的单元格?例如,要选择同一工作簿中另一工作表上的单元格E6,可以使用下面的代码:Application.GotoActiveWorkbook.Sheets("Sheet2").Cells(6,5)或:Application.Goto(ActiveWorkbook.Sheets("Sheet2"
4、).Range("E6"))也可以先激活该工作表,然后再选择:Sheets("Sheet2").ActivateActiveSheet.Cells(6,5).Select如何选择不同工作簿中的单元格?例如,要选择另一工作簿中的一个工作表上的单元格F7,可以使用下面的代码:Application.GotoWorkbooks("BOOK2.XLS").Sheets("Sheet1").Cells(7,6)或:Application.GotoWorkbooks("BOOK2.XLS").Sheets("Sheet1
5、").Range("F7")也可以先激活该工作簿中的工作表,然后再选择:Workbooks("BOOK2.XLS").Sheets("Sheet1").ActivateActiveSheet.Cells(7,6).Select如何选择当前工作表中的单元格区域?例如,要选择当前工作表中的单元格区域C2:D10,可以使用下面的代码:ActiveSheet.Range(Cells(2,3),Cells(10,4)).Select或:ActiveSheet.Range("C2:D10").Select或:Active
6、Sheet.Range("C2","D10").Select如何选择同一工作簿中另一工作表上的单元格区域?例如,要选择同一工作簿中另一工作表上的单元格区域D3:E11,可以使用下面的代码:Application.GotoActiveWorkbook.Sheets("Sheet3").Range("D3:E11")或:Application.GotoActiveWorkbook.Sheets("Sheet3").Range("D3","E11")也可以先激活该工作表,然后再选择:Sheets("Sheet3")
7、.ActivateActiveSheet.Range(Cells(3,4),Cells(11,5)).Select如何选择不同工作簿中工作表上的单元格区域?例如,要选择另一工作簿中某工作表上的单元格区域E4:F12,可以使用下面的代码:Application.GotoWorkbooks("BOOK2.XLS").Sheets("Sheet1").Range("E4:F12")或:Application.GotoWorkbooks("BOOK2.XLS").Sheets("Sheet1").Range("E4"
8、,"F12")也可以先激活该工作表,然后再选择:Workbooks("BOOK2.XLS").Sheets("Sheet1").ActivateActiveSheet.Range(Cells(4,5),Cells(12,6)).Select如何在当前工作表中选择命名区域?例如,要选择当前工作表中名为“Test”的区域,可以使用下面的代码:Range("Test").Select或:Applicati