3 单元格1

单元格的几种选择方式

1 [a10]这种书写方式的弱点在于固定单元格，不能选变量单元格

2，range(“a10”)这种方式可以选择变量还可以选择区域，比如range(a1:a10)表示a1到10这个区域被选中

3 range(“a10”).value 虽然很多情况第2种和第3种方式几乎一致，但是还是有不同的地方，如sheets(range(d1).value).select (你想用单元格d1的值作为表格的名称，这时如果你用第2种方法就不行了。

4 cell(10,1)表示第十行，第一列交叉的单元格被选中，就是a10

单元格的朋友们

1 range(“a10”).offset(10,0)表示a10这个单元格向下移10，向右移0.

2 range(“a10”).end(xlup)表示a10所在的那个表的上边界，还有下边界，左右边界，类似于选中一个单元格点击边框的周围，到达表格的最上下左右边。

Range(“a10”).copy（b5）就是把a10的值复制粘贴到b5去

Sub cs()

Dim rng As Range

For

Each rng In Range("b2:b" &

Range("a64536").End(xlUp).Row)

  Ifrng.Offset(0, -1) = "男" Then

    rng = "先生"

 Else

    rng = "女士"

End If

Next

End Sub

特别注意括号里面的写法标点符号之类的，range(“a64536)不能写成rag。

这个代码处理b列里面称呼，女士还是先生，关键是可以增加数据后还可以处理

Sub ff()

Range("h5").Resize(1, 5).CopyRange("o2")

End Sub

关键点在于copy后面是空的，不用加符号 . 。

复制h5到h9并且粘贴到o2去

Range.Cleancontents   清楚内容，作用对象是单元格，表格不行

Merge 合并

Sub hb()

Dim rng As Range

For Each rag In Range("h21:o21")

        rag.Resize(2, 1).Merge

Next

End Sub

注意第一次写成了For Each rag In Range("h21:o21").resize(2,1),应该是上面那种写法