一、强烈建议初学者理清Excel对象模型，在学写vba代码时，按层级来书写
本问题相关的对象层级为workbook - worksheet - range
二、关于引用单元格
Dim oBook As Workbook
Dim oSheet As Worksheet
Dim oRange As Range
Set oBook = Application.Workbooks("目标工作簿") '这里的Application指当前VBA代码所属的工作簿所在的Excel程序进程实例
Set oSheet = oBook.Worksheets("目标工作表")
'以下开始引用单元格
'1.引用单个单元格
Set oRange = oSheet.Range("A1") '常规方式
Set oRange = oSheet.Range("A" & 1) '动态列号
Set oRange = oSheet.Cells(1, 1) '行号+列号，可动态
Set oRange = oSheet.Cells(1, "A") '行号+列号
Set oRange = oSheet.[A1] '不建议使用
'Cells方法的缺点是无成员提醒
'2.引用连续单元格区域
Set oRange = oSheet.Range("A1:B2") '常规方式
Set oRange = oSheet.Range(oSheet.Cells(1, 1), oSheet.Cells(2, 2)) '长是长一点，某些时候还挺实用
Set oRange = oSheet.Range("A1", "B2") '使用率低
Set oRange = oSheet.Range("A1").Resize(2, 2) '极其灵活，配合Offset方法使用会更灵活
'3.引用不连续单元格区域
Set oRange = oSheet.Range("A1, B2:C3, D4")
Set oRange = Application.Union(oSheet.Range("A1"), oSheet.Range("B2:C3"), oSheet.Range("D4"))
'4.当前选定的单元格
Set oRange = Selection.Range
'5.行和列
Set oRange = oSheet.Rows(1)
Set oRange = oSheet.Columns(1)
'6.常用应用
Set oRange = oSheet.UsedRange '已使用的矩形单元格区域
Set oRange = oSheet.Range("A" & oSheet.Rows.Count).End(xlUp) '第A列，最后一个非空白单元格
Set oRange = oSheet.Cells(1, oSheet.Columns.Count).End(xlToLeft) '第1行，最后一个非空白单元格
相关推荐
-
2021会有ipad pro吗,现在有必要等iPad Pro 2021款吗？
还是直接买2020款？我只想买11寸的，听说下个月发布新iPadPro了，但是不确定会不会只发售12寸的，要是等的话怕抢不到又要错过一个学期了，还是说先买一个便宜的过渡？（另外想问问各位大佬新iPad大概会升价多少啊？...
-
macbook开机背景图片怎么改,Mac怎么更换开机界面的背景图片？
1、首先打开访达界面，选择访达--偏好设置--硬盘。调出本地硬盘。 2、打开本地硬盘，选择资源库。 3、找到资源库里面的desktop pictures文件夹。 4、找到文件夹里面的Moj...
-
怎么导出oracle数据库表结构，数据库表结构怎么导出来
oracle数据库导出数据库的表结构，使用sql查询将查到的数据复制到Excel表中保存中即可。查询代码：SELECT t.table_name,t.colUMN_NAME,t.DATA_TYPE || '(' || t.DATA_LENGTH || ')',t1.COMMENTSFROM User_Tab_Cols t...
-
音乐格式m4a怎么转换mp3,如何把m4a无损音乐转换成mp3呢？
如何把m4a无损音乐转换成mp3呢M4A文件是苹果公司为了区别MPEG所推出的音频格式，,即MPEG-4 音频标准的文件的扩展名，只是而现在Windows系统中的默认应用录音机也在使用M4A格式了当你的播放器不支持m4a，却支持mp3格...
-
苏宁电器财务报表,苏宁电器财务报表？
这个是网址：http://finance.sina.com.cn/realstock/company/sz002024/nc.shtml 然后看左侧的栏目，蓝色的条目之中，在“发行与分配”的下方，有一个是“财务报表”，有一个是“财务数据”，之后还有“杜邦分析”点击之后就...
-
电脑听书软件推荐,电脑版听书有什么软件？
喜马拉雅比较好。有哪些免费听书的App？免费的有听书功能的软件app按照网络下载量排行：书旗小说、喜马拉雅、多看阅读、追求神器、蜻蜓FM（下载量过亿的）；懒人听书、听书听小说大全、宜搜小说、安卓读书、七猫精品...