单元格的书写方式
- [a1]
选择a1单元格：[a1].select
cells(2,3) --- c2单元格（行，列）
以上两种书写方式固定，无法引入变量- range("a1")
range("a1:a10")
选取单元格的值
range("a1")
range("a1").value -- range.value是单元格的默认属性
若事先声明列rng是单元格，才可以不写.value
单元格的定位属性
偏移属性 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
- 单元格边界属性 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
- range("a7:d7").copy range("f7")
将a7到d7的内容复制到 f7到i7
- 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
