樓下大佬分享的代碼真的太有用了！直接貼一下簡化版，大家按需取用：
Sub zhantie()
Sheets(1).Range(A11:A63).Copy
Sheets(2).Range(W11:W63).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub
簡單說下哈：`Sheets(1)`就是從左往右數(shù)第一個工作表，`Sheets(2)`是第二個，依次類推。就算你把第一個表重命名了，也不影響代碼運(yùn)行。
如果想用表名來指定，可以這樣寫：
Sheets(sheet1).Range(A11:A63).Copy
不過這種方式有個坑，如果你改了工作表的名字，比如sheet1改成其他名字了，那代碼運(yùn)行時就會報(bào)錯，找不到這個表。
根據(jù)自己的需求選擇適合的方法吧，大佬們輕噴~
Sub zhantie()
Sheets(1).Range(A11:A63).Copy
Sheets(2).Range(W11:W63).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub
簡單說下哈：`Sheets(1)`就是從左往右數(shù)第一個工作表，`Sheets(2)`是第二個，依次類推。就算你把第一個表重命名了，也不影響代碼運(yùn)行。
如果想用表名來指定，可以這樣寫：
Sheets(sheet1).Range(A11:A63).Copy
不過這種方式有個坑，如果你改了工作表的名字，比如sheet1改成其他名字了，那代碼運(yùn)行時就會報(bào)錯，找不到這個表。
根據(jù)自己的需求選擇適合的方法吧，大佬們輕噴~