返回列表 上一主題 發帖

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

missbb

帖子
216 
主題
71 
精華
0 
積分
292 
點名
0  
作業系統
window xp 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2012-6-27 
最後登錄
2024-9-28 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2015-8-23 21:30 | 只看該作者

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

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


  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
複製代碼
收藏 分享

missbb

帖子
216 
主題
71 
精華
0 
積分
292 
點名
0  
作業系統
window xp 
軟體版本
2007 
閱讀權限
20 
性別
女 
註冊時間
2012-6-27 
最後登錄
2024-9-28 
3#
發表於 2015-8-24 14:13 | 只看該作者
回復 2# ikboy
多謝指導!

TOP

ikboy

帖子
262 
主題
8 
精華
0 
積分
280 
點名
16  
作業系統
xp 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
HK 
註冊時間
2015-8-11 
最後登錄
2024-10-26 

2016猴年全勤獎章
2#
發表於 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

TOP

        靜思自在 : 天上最美是星星，人生最美是溫情。
返回列表 上一主題