第042篇：VBA之 Cells 单元格引用基础

前天（上周五）上午，到新办公区去试钥匙，跟领导开始了看风水大赛，哈哈哈哈真的搞笑

部门的新办公室是一大间，单位给部门配了4个衣柜、7个文件柜、7张桌子（咱也不知道给配这么多桌子干哈 ：）

跟领导、同事简单把家具归拢了归拢以后，基本形成了如图所示的布局。图中，红色的是衣柜、绿色的是文件柜（比衣柜薄）、黄色的是桌子、米色的是柱子。没画出来的仨桌子，暂时也都用不到呢。为我惊人的画工点赞！不愧是在工地上跑大的女明星！

前提背景：这间办公室主开813门，辅开815门，领导让我跟他面对面坐。于是，我和领导开始一本正经地讨论风水问题。

如果这是被墙隔开的两个房间，那毫无疑问的是1、3两个位置都好。但现在呢，中间是用柜子半隔开的，柜子是不如墙的，这主要是起源于“靠山”一说，于是领导心中的优选座位成了1、4。

对于我呢，一开始喜欢4，因为4号位背后是墙，窗外风光也好。但领导在1和4之间犹豫，我肯定不能先抢。我就开始琢磨2和3，这俩座位中间的顶上有一个中央空调出口（我真的不想被空调吹，夏天的中央空调能冻死人，特别是部门里都是男同志，他们太容易热了，我小命不保），这么想来，我就不用挑了，1、4轮不到我，2、3我都看不上。

当天下午，我跟领导说，让我爸帮看看风水。到了晚上，领导发微信很关心地问 “老爷子给信儿了吗？”（我爸没有那么老吧 ╥﹏╥ ）

我没及时看到消息，一直在玩自己的，后来就睡了。第二天早上，我回复领导说天机不可泄露。俩小时以后，领导打电话来说特别想知道。我就跟领导说“我爸推荐1和3，但咱俩要必须面对面的话，最佳方案是你3号我4号，至于柜子VS墙的问题，只要在书柜里放块石头，山就有了！” 领导说“ 好！等下周我再坐3那里感受感受！”领导也确实觉得1、4号位都不够理想，1的位子太冲，4的位子太凹，所以他才纠结。

分析到这儿，我真的觉得我去坐4号，领导坐3号，可能是一个接近完美的方案了。

PS：所谓“风水”一说，只是为了给日常找点乐趣，勿当真。职场铁律：勤勤恳恳、踏踏实实、勤学多看。

（一）Cells 单元格引用法

写法：Cells(行号, 列号)

Sub Cells基本写法()

Cells(3, 4).Select        '行列号均为数字

Cells(2, "c").Select      '行号为数字，列号为列标字母

Cells.Select                 '全选

End Sub

Cells 可以像上一篇里的 Range 一样，参照前面的单元格位置

Sub 参照写法()

Range("b3:f11").Cells(2, 2).Select     

Range("b3:f11").Cells(6).Select          '从左到右，从上到下

Range("b3:f11")(6).Select                   '与上一句相等

End Sub

注意：

1.Cells 中的数字一样支持正数、负数、零值、小数（四舍六入五单双）

2.Cells 不能像 Range 一样引用一个区域，只能引用一个单元格

（二）Cells 还可以嵌套在 Range 中

Sub 嵌套()

Range(Range("b1"), Range("f11")).Select         '选中b1:f11

Range(Cells(3, 2), Cells(11, 6)).Select              '选中第3行第2列的单元格到第11行第6列的单元格

End Sub

*****************************

（三）动态引用

Sub 动态引用行列区域()

Dim a%, b%

a = Application.CountA(Range("a:a"))      'A列非空单元格统计值

b = Application.CountA(Range("1:1"))      '1行非空单元格统计值

Range(Cells(1, 1), Cells(a, b)).Select       '区域的左上单元格(1,1)到右下单元格（a,b）

End Sub