5、表格属性等

1、单元格属性

Sub ss()
Range("b3:d78").Cells.Select
Selection.Interior.Color = vbBlack
End Sub

 2、行属性

Sub row属性()

Rows("5:10").Rows("1:1").Select
Selection.Interior.Color = vbRed
End Sub

3、列属性
Sub col属性()
Columns("a:g").Columns("b:b").Select
Selection.Interior.Color = vbYellow
End Sub

4、

Sub shishi()

Range("a1").Offset(2, 3).Value = 1000
'a1单元格开始下移2行、右移3列；假如方向相反则数字前面加上-

End Sub

Sub aa()

Range("b2").Resize(5, 4).Select '以b2单元格为起点，扩充一个5行4列的区域
Selection.Interior.Color = vbBlue

End Sub

Sub bb()
Range("a7:e14").Resize(3, 2).Select ' 缩小区域为3行2列
Selection.Interior.Color = vbGreen

End Sub

Sub usedrng()

ActiveSheet.UsedRange.Select '选定被使用的区域


End Sub

 5、在A列的最后一个单元格列写入名字

Sub vv()
　　ActiveSheet.Range("a65536").End(xlUp).Offset(1, 0).Value = "陈耿"
End Sub