第040篇：VBA之 Range 引用与变量

人是不是都这样（捂脸）：越不能干嘛的时候就越想干嘛。原来能吃能喝的时候，没觉得有那么多想吃的，现在戴着紧箍咒，吃啥都不方便了，反而啥都想吃。最近迷上了看内蒙古天乐（米饭屠夫面条杀手农民伯伯的好帮手）的吃播，看视频看的特别想吃凉皮、凉拌菜和寿司。

内蒙古天乐说，如何一句话气死内蒙人？答案 → “你们那儿的羊肉不好吃”  哈哈哈哈哈哈哈哈哈哈 我觉得好好笑哦

刚上大学的时候，学校北门有长长的夜市，出门往左是小吃夜市，出门往右是日用夜市。最开始接触的夜市小吃是土家酱香饼。等后来，学校周边管理加强，北门夜市随之消失在记忆里了。再后来，学校开始建西门，可太妙了，大学四年里我住的女生宿舍4号楼正守着西门，和舍友最happy的时光就是去结束一天的学习之后去逛夜市买好吃的，最爱吃的西门夜市小吃应该是烤冷面了。学校西门斜对面有一家米线店，太香了！就香味能飘半条街，我和舍友称它“毒米线”，因为那种飘香的程度太异常了，如果楼道里有一个宿舍点了那家米线的外卖，一定会香到楼道的其他每一个角落。

大学时光，怎么说呢，是挺好的，但也挺累的，特别是大二那年，学习+学生会+家教，把时间挤得满满的，到了大三下，又开始准备考研，考完研，大四下又开始调剂，等把调剂搞定，又开始学车，一直学到8月中旬才彻底离开母校，真没觉得有闲的时候。等读了研，就更忙了，最开心、轻松的时间段应该是2017年的夏天和秋天了……

回到正题，我觉得写 Range 真的有点无聊，但是知识金字塔嘛，每一块砖都有用。Action！

（一）Range 的相对引用写法

相对引用：Range("地址区域").Range("地址区域")  

Sub 相对引用写法()

Range("b2:d4").Range(b2).Select     '第二个范围参照前一个Range的左上单元格

Range("b2:d4").Range(b2) = "我被选中啦"

End Sub

图示：底纹浅绿色的区域是Range("b2:d4")，相对于这块区域来说，b2就是九宫格中间的这个

   

（二）Range 中使用变量

Sub Range中使用变量()

Dim a%

a = 3

Range("a"&a).Select            '字符与变量之间，要用连字符连接起来

Range("c3:e5")(2).Select      '选中c3:e5区域的横向第2个单元格，悄么悄又写了一种表示方法

End Sub

（三）实例：动态选择单元格或区域

Sub 动选()              '写到这，我已经困得不行了以鹅，“以鹅”是跟夏姐姐学的，哈哈

Dim i%

i = Application.CountA(Range("c:c"))          '找到c列中已使用单元格数，这里 i = 4

Range("c" & i).Select                                   '选中c4单元格

Range("a1", "c"&i).Select                            '选中a1:c4单元格

Range("a1:c" & i).Select                              '选中a1:c4

End Sub