同一excel中不同表中数据拷贝（普通拷贝）
Sub 拷贝数据()
Sheet2.Cells(1, 1) = Sheet1.Cells(1, 1)'直接使用即可
Sheets(测试).Cells(1, 1) = Sheet1.Cells(2, 1)'对于非默认的名称，要用sheets加引号引用
Sheets(测试2).Cells(1, 1) = Int(Sheet1.Cells(2, 1).Value + 23)'对于进行运算，要注意数据格式的转换
End Sub
