[發問] 程式於跨工作表複制

missbb

我想將"原本"工作表內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

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

回復 2# ikboy
多謝指導!