移动与复制VBA

nnsea

'------------------------------------------------------------
'1.Range.Cut 方法
    '将单元格区域剪切到指定的区域
'2.Range.Copy 方法
    '将单元格区域复制到指定的区域
'------------------------------------------------------------


Sub 移动复制()
Range("a1:d8").Cut Range("f1")
Range("f1:i8").Copy Range("a1")
End Sub




Sub 另类复制方法()
Range("a10:d17") = Range("a1:d8").Value
End Sub
'注：
'1.等号后的区域一定要加value.否则不成功
'2.被赋值的区域格式全部去掉


Sub 出差登记表记录保存()
Dim rs%, crs%
rs = Application.CountA([d:d])
crs = Application.CountA(Sheets("出差记录表").[a:a]) + 1
If rs = 1 Then GoTo 100
Range("a2:d" & rs).Copy Sheets("出差记录表").Range("a" & crs)
End
100:
MsgBox "没有要保存的数据！"
End Sub