(9)单元格的值与地址, 移动与复制 插入与删除

http://www./study.asp?vip=10241777  资料学习的网址

''单元格的值与地址======================================
Sub 单元格值表示的方法()
a = Range("a1").Value  '实际是什么 就是什么
b = Range("a1").text   '看到是什么 就是什么
c = Range("a1")
End Sub
'注意:一个单元格可以省略 value ,多单元格区域不能省略
Sub 多区域赋值()
Range("a1:a3").Value = Range("b1:b3").Value
End Sub
Sub 单元格地址与引用()
'1代表固定 0代表不固定
Dim rng As Range
Set rng = [b2:f2]
[a9] = rng.Address(1, 1)  '绝对引用
[b9] = rng.Address(0, 0)  '相对引用
[c9] = rng.Address(1, 0)  '混合引用
[d9] = rng.Address(0, 1)  '混合引用
End Sub
 Sub 地址引用实例()
 '将单元格中为空的赋值
Dim rng As Range, rn As String
On Error Resume Next
For Each rng In Range("a1:c6")   ' 取出A1:C6 中的每个单元格
If rng.Value = "" Then
rn = rn + rng.Address & ","     '得到单元格地址++
End If
Next
Range(Left(rn, Len(rn) - 1)).Value = "未考"
End Sub
''单元格区域的移动与复制
'1.range.cut 方法 将单元格区域剪切到指定区域
'2.range.copy     将单元格复制到指定区域
Sub 移动复制()
Range("a1:c3").Cut Range("f1")
Range("a1:c3").Copy Range("f1")
'另类复制方法
Range("e1:f3") = Range("a1:c3").Value    '复制值不复制格式
End Sub
Sub 登记记录保存实例()
Dim rs, crs As Integer
rs = Application.CountA(Range("a:a"))      '当前工作表中 A列 使用的行数
crs = Application.CountA(Sheet2.Range("a:a")) + 1   'sheet2中 A列使用的行数
If rs = 1 Then    'rs=1 为首列字段  没有要保存的记录
Exit Sub
End If
Range("a2:c" & rs).Copy Sheet2.Range("a" & crs)     '''复制
'Range("a2:c" & rs).Copy Sheets("表2").Range("a" & crs)
End Sub
'工作表中的行插入于删除
Sub 插入()
Rows(2).Insert   ''插入
Rows(2).Delete   ''删除
''隔行插入
Dim i As Integer
Do
i = i + 2
Rows(i).Insert
Loop Until Range("a" & i + 1) = ""
End Sub
Sub 隔行删除()
Dim i, r As Integer
i = Application.CountA(Range("a:a"))   'A列 有多少非空的单元格
For r = 1 To i / 2
Rows(r).Delete               '删除
Next
End Sub