工作表的截图： 运行后的截图：
代码执行后，第一行被隐藏了。
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中的转置代码是如何写的？
分享成果，随喜正能量。