选择单元格的几种方式：

　　[a1].select

　　cell(2,3).select  #参数 行 列

　　range("a1").select

　　range("a1") =1  默认是 range("a1").value = 1 为属性赋值

　　　　两者还是有 区别的 比如安装单元格a1的值去点击对应的工作表  sheets(range("a1").value).select  这时候只能用range().value

range的两个朋友：

　　range("a1").offset(1,2) #两个参数 下移 右移      #偏移单元格  风骚的走位

例子：

　　

Sub ss()
Dim rng As Range
For Each rng In Range("a1:a20")
    If rng = "男" Then
        rng.Offset(0, 1) = "先生"
    Else
        rng.Offset(0, 1) = "女士"
    End If
Next
End Sub