LV超3A名牌購物網
Copy 的目的地用 Sheet(1)~(4)，並不會指向新增的工作表，
而會指向現存工作表中其中的四個。如此當然會天下大亂。
請試做以下的修改：
以期距為例，請把下列片段
Sheets.Add
With Sheets("期距")
Sheets("期距S").Range("A1:J50").CopySheets(1).Range("A1")
改為
Sheets.Add
ActiveSheet.Name = "期距"
With Sheets("期距")
Sheets("期距S").Range("A1:J50").Copy .Range("A1")
其他三個片段，請依樣修改。
全站熱搜
留言列表
