第036篇：VBA之工作表移动与复制、选择与激活

今天早上以为睡饱了，起身看手机才5:50，倒下重睡，第二次醒来就9:06，NICE！最近的睡眠质量很高，晚上困得比较及时，第二天早上可以按生物钟醒来，到单位都还算比较早。

用鼠标拖选字的时候，发现不太灵了嘞，排除鼠标垫作祟，只能是电池的问题！果然！一节更比六节强！恢复好用。

（一）工作表移动与复制

表达式.Move(Before，After)  

表达式.Copy(Before，After)

Sub 移动()

Sheet1.Move , Sheet3                      '将Sheet1移动到Sheet3的后面，这里跨过了Before参数，直接写了After参数值

Sheet1.Move after:=Sheet3              '和上句的含义是一样的，看到这里千万别纠结于“我根本就不知道可以这样写”

End Sub

*********************************

Sub 复制()

Sheet1.Copy Sheets(Sheets.Count)      '将Sheet1复制最后一个工作表之前