標題: [發問] 程式於跨工作表複制 [打印本頁]

---

作者: missbb    時間: 2015-8-23 21:30     標題: 程式於跨工作表複制

我想將"原本"工作表內AK2:AK10範圍的程式COPY到同一工作部內的多工作表, 下列程式有錯, 求教?:D

1. Sub 原本範圍公式COPY()
   
2. 
   
3. 
   
4. For Each xws In ThisWorkbook.Sheets(Array("A", "B", "C"))
   
5.         
   
6.         ThisWorkbook.Worksheets("原本").Select
   
7.         Range("AK2:ak10").Copy
   
8.         
   
9.         xws.Select
   
10.         Range("AK2:ak10").X1Pasteall
    
11.         
    
12.         
    
13.         Next
    
14.         
    
15.         End Sub

複製代碼

---

作者: ikboy    時間: 2015-8-24 09:05

Sub 原本範圍公式COPY()

Dim sht
sht = Array("A", "B", "C")
For Each xws In sht
    ThisWorkbook.Worksheets("D").Range("A1:a3").Copy Sheets(xws).Range("A1")
Next
  
End Sub

---

作者: missbb    時間: 2015-8-24 14:13

回復 2# ikboy
多謝指導!

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)