close
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")
其他三個片段,請依樣修改。
全站熱搜