Sub 选择方法()
Range("a1:a10").Select '因为没有写工作表名,则默认为活动工作表
End Sub
Sub 复制方法()
Sheet1.Range("a1:a10") = "王小涛_同學" '将值写入到a1----a10区域
Sheet1.Range("a1:a10").Copy Sheet2.Range("a1") '将表一的a1---a10内容复制到表2
End Sub
Sub 删除方法()
Sheets(2).Delete
End Sub
原文地址:http://blog.csdn.net/u013511642/article/details/45374031