操作单元格对象

单元格的书写方式

1. [a1]
   选择a1单元格：[a1].select
   cells(2,3) --- c2单元格（行，列）
   以上两种书写方式固定，无法引入变量
2. range("a1")
   range("a1:a10")
   选取单元格的值
   range("a1")
   range("a1").value -- range.value是单元格的默认属性
   
   
   若事先声明列rng是单元格，才可以不写.value

单元格的定位属性

1. 偏移属性 offset
   Range("a1").Offset(10, 0).Select -- 向下移动10行，向又移动0列

   
   
   通过offset输出称呼

Sub tt()
Dim rng As Range
For Each rng In Range("b2:b20")
   If rng.Offset(o, -1) = "男" Then   (0,-1)即a1
       rng = "先生"
   Else
       rng = "女士"
   End If
Next
End Sub

2. 单元格边界属性 end
   Range("a65536").End(xlUp).Select -- end有四个选项 上下左右边界
   该句代码的意思是a65536单元格的上边界
   即从选取了内容区域的所有格子

Sub tt()
Dim rng As Range
For Each rng In Range("b2:b" & Range("a65536").End(xlUp).Row)
   If rng.Offset(o, -1) = "男" Then
       rng = "先生"
   Else
       rng = "女士"
   End If
Next
End Sub

选取单元格

resize(2,1) 当前单元格开始选取两行一列

Range("a1").Resize(1, 4).Select

entirerow -- 选取整行

Range("a1").EntireRow.Select

复制单元格 copy

1. range("a7:d7").copy range("f7")

将a7到d7的内容复制到 f7到i7

2. range("a2").entirerow.copy range("a23")
   将a2整行复制到a23 ， 必须是a不能是其他值

合并单元格 -- merge

将第一行与第二行合并

Dim rng As Range
For Each rng In Range("I1:k1")
   rng.Resize(2,1).merge
Next