今天和大家分享VBA中常用的精彩代码赏析之六，还是声明一点，也不是什么精彩的，就是常用的吧，对这些语句仔细的理解后，能对自己的工作有很大的帮助，今天主要讲解RANGE对象相关的一些常见的语句，对于range来说，相信大家不很陌生，range是一种计算机术语，在Excel中，Range集合代表某一单元格、某一行、某一列、某一选定区域（该区域可包含一个或若干连续单元格区域），或者某一三维区域。可用 Range(arg)（其中 arg 为区域名称）来返回代表单个单元格或单元格区域的 Range 对象。
今日的第六个专题，虽然只是七则语句，但内容还是挺多的。希望朋友要仔细的理解掌握，对于自己的工作会帮助很大，这些语句是我从大量的VBA代码中筛选出来，可以做为特定的通用语句来掌握，当然，更丰富的内容以后还会陆续的推出。
1 ThisWorkbook.Worksheets(1).Activate
语句说明：当前工作簿中的第一个工作表被激活
备注：Activate指激活，是指当前活动的文件或工作薄。
2 ThisWorkbook.Worksheets("Sheet1").Rows(1).Font.Bold = True
语句说明：设置工作表Sheet1中的行1数据为粗体
备注：这是Range的属性实例，range 的属性有很多，字体的设置是其中之一。
3 ThisWorkbook.Worksheets("Sheet1").Rows(1).Hidden = True
语句说明：将工作表Sheet1中的行1隐藏
ActiveCell.EntireRow.Hidden = True
语句说明：将当前工作表中活动单元格所在的行隐藏
备注：Hidden是隐藏属性，在实例中可以利用。
注：同样可用于列。
看下面的例子：代码如下
工作表的截图：
运行后的截图：
第一行被隐藏了。
4 Range(A1:A10).Value=Application.WorksheetFunction.Transpose(MyArray)
语句说明：将一个含有10个元素的数组转置成垂直方向的工作表单元格区域(A1至A10)
备注：类似的转置在EXCEL函数或者表格操作中都有相应的方法，读者可以仔细体会。
注：因为当把一维数组的内容传递给某个单元格区域时，该单元格区域中的单元格必须是水平方向的，即含有多列的一行。若必须使用垂直方向的单元格区域，则必须先将数组进行转置，成为垂直的。
5 Range("A65536").End(xlUp).Row+1
语句说明：返回A列最后一行的下一行
备注：从最后向上到非空的行。
6 Selection.Font.Bold=Not Selection.Font.Bold
语句说明：切换所选单元格是否加粗
备注：和上述的第二条类似
7 ActiveSheet.Range("A:B").Sort Key1:=Columns("B"), Key2:=Columns("A"), Header:=xlYes
语句说明：两个关键字排序，相邻两列，B列为主关键字，A列为次关键字，升序排列
备注：这条是指列的排序，是两列的排序
8 cell.Range("A1").NumberFormat
语句说明：显示单元格或单元格区域中的第一个单元格的数字格式
备注：数字格式的属性设置。
今日内容回向：
1 本日讲的单元格属性有哪些？
2 在EXCEL中转置是如何操作的？EXCEL函数的转置是什么？在VBA中的转置代码是如何写的？
閱讀更多 VBA專家 的文章
