关于在VBA中的选择，系统学习归纳在一起便于查找使用。
表示单元格有2种方式，第一种是A1样式如：range(”A1“)，第二种是R1C1样式如：cells(1，1)，动态引用就会用到，往后有数字就可以考虑使用变量。
下面的代码都是放在Sub的过程中。提示：在写Sub过程时代码不用打完，输入（）后回车就可以了，电脑会自动补上End Sub
1.活动单元格
Activecell.select
2.活动区域
Selection.select
3.选定单元格并赋值
Sheets("1").range("A1").select
activecell.value=100
4.选定区域并赋值
Sheets("1").Range("A1:A50").Select
Selection.Value = 200
5.选定多个不连续的区域并赋值
Sheets("1").Range("A1:A50，b1:b20，c5").Select
Selection.Value = 200
6.以某个单元格为基点选择相连的区域，类似Ctrl+A的效果
Sheets("1").range("A1").currentRegion.select
7.选择工作表已使用区域
Worksheets("1").Activate
ActiveSheet.UsedRange.Select
8.手动指定单元格
同是选择一个单元格有两种方式，第5行第5列可以表示为 range("e5") 或且 cells(5，5)
9.动态选择A列最下面一个数据所在的单元格
第一种方法
Range("A" & Range("A" & Rows.Count).End(xlUp).Row).Select
注意：range("A"&Rows.count).end(xlup).row，这一段代码只是代表一个行号， 肇东市成匹纸业有限公司要定位单元格还是要套进 Range("A" & 行号代码).Select 中
第二种方法
Range("A" & Cells(Rows.Count， ML冠思DEEP 1).End(xlUp).Row).Select
10.动态选择单元格后利用Offset函数进行移位，海伦市嘉艾烹饪有限公司先行后列，向下向右为正，反之为负，注意起点不在原单元格。
Range("A" & Range("A" & Rows.Count).End(xlUp).Row).Offset(1， 1).Select
11.动态选择单元格后利用Resize函数可扩展新的区域，联系我们先行后列，向下向右为正，反之为负，注意起点在原单元格进行行列扩展。
Range("A" & Range("A" & Rows.Count).End(xlUp).Row).Resize(2， 3).Value = "OK"
12.动态选择区域（不知道最后一行数据在哪或最后一列数据在哪的情况下如何选择，用得是最多的，先定头，尾是从表格最后一行1048576往上定位）
打比方，我们要选择A2到A100这个区域的数据，手动写代码：Sheets("1").range("A2:A100").Select，这里的100是个动态的行号，要用另一种写法，之后代码可以重复套用。
A100可以拆分为”A“&100，那么用代码可表示为："A“&Cells(Rows.Count， 1).End(xlUp).Row 或且 "A“&Cells(Rows.Count， ”A“).End(xlUp).Row
套到上面的代码并赋值后代码如下：
第一种写法：
Sheets("1").Range("A2:A" & Cells(Rows.Count， 1).End(xlUp).Row).Select
Selection.Value = 30
第二种写法：
Sheets("1").Range("A2:A" & Range("A"& Rows.Count).End(xlUp).Row).Select
Selection.Value = 500业务合作
本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请点击举报。