对于在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， 临沂海博贸易有限公司 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园林绿化用品
本站仅提供存储处事，扫数实质均由用户发布，如发现存害或侵权实质，请点击举报。