【Cells属性】
Cells属性用于返回一个Range对象，表示工作表中所有的单元格，包括已经使用的单元格和未使用的单元格。
【代码区域】
Sub 使用Cells属性()
'声明变量
Dim wk As Workbook
Dim wt As Worksheet
'赋值
Set wk = Application.Workbooks()
wk.Activate '激活工作簿
Set wt = wk.Worksheets() '选择工作簿
With wt.Cells.Font
.Bold = True
.Italic = True
.Size =
.ColorIndex =
End With
MsgBox "设置完成", vbOKOnly, "使用Cells属性"
Set wk = Nothing
Set wt = Nothing
End Sub
【执行结果】
【Columns属性】
Columns用于返回一个Range对象，表示当前工作簿中指定区域的列。
【代码区域】
Sub 使用Columns属性()
Dim wk As Workbook
Dim wt As Worksheet
Set wk = Application.Workbooks()
wk.Activate
Set wt = Worksheets()
With wt.Columns().Font
.Bold = True
.Size =
.ColorIndex =
End With
MsgBox "设置完成", vbOKOnly, "使用Columns属性"
Set wk = Nothing
Set wt = Nothing
End Sub
【执行结果】
【Next属性】
Next属性用于返回表示下一个工作表的WorkSheet对象，如果引用此属性的对象为一个区域，则属性会模拟“TAB”,返回下一个单元格，而不选中下一个单元格
【代码区域】
Sub next属性()
Dim wk As Workbook
Dim wt As Worksheet
Set wk = Application.Workbooks()
wk.Activate
Set wt = wk.Worksheets()
wt.Cells(, ).Next = "OLIVER"
End Sub
【执行结果】
【Previous属性】
Previous属性用于返回表示前一个工作表的Worksheet对象，如果使用此属性时，所使用的对象为区域对象，则此属性的作用将效仿“Shift+Table”快捷键，但此属性只是返回上一个单元格，不是选中。
【代码区域】
Sub Previous属性()
Dim wk As Workbook
Dim wt As Worksheet
Set wk = Application.Workbooks()
wk.Activate
Set wt = wk.Worksheets()
wt.Cells(, ).Previous = "OLIVER"
End Sub
【执行结果】
【Range属性】
Range返回一个Range对象，表示一个单元格或者一个单元格区域。
【代码区域】
Sub Range属性()
Dim wk As Workbook
Dim wt As Worksheet
Set wk = Application.Workbooks()
wk.Activate
Set wt = wk.Worksheets()
wt.Range(Cells(, ), Cells(, )).Select
With Selection.Interior
.Color =
End With
End Sub
【执行结果】
更多Range资料：http://www.cnblogs.com/OliverQin/p/6198441.html
【Rows属性】
Rows属性是一个只读属性，用于返回一个Range对象，表示制定工作表中的所有行。
【代码区域】
Sub row应用()
For Each rw In Rows("1:4") '第一行到第四行
If rw.Row Mod = Then
rw.RowHeight =
rw.Value = "数据"
End If
Next
End Sub
【执行结果】