同一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