vba处理单元格数据

本sheet中复制：

　　Sub Macro1()
　　    Range("A1").Copy Range("B1")
　　End Sub

sheet间复制：

 　　Sub mycopy()
　　   Workbooks("book1").Sheets(1).[a1:a10].Copy _
　　   Workbooks("book2").Sheets(1).[b1:b10]
　　End Sub
提示：一行的代码过长，可以用空格加下划线进行换行。

剪切单元格
 
　　Sub mycut()
　　  [a1:a10].Cut [b1]
　　End Sub

删除单元格
　　[a1].Delete Shift:=xlUp '   下方单元格上移
　　[a1].Delete Shift:=xlToLeft '    右侧单元格左移
　　[a1].EntireRow.Delete '   整行删除
　　[a1].EntireColumn.Delete '   整列删除