- 帖子
- 262
- 主題
- 8
- 精華
- 0
- 積分
- 280
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- Office 2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- HK
- 註冊時間
- 2015-8-11
- 最後登錄
- 2025-3-24
|
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 |
|
發表於 2015-8-24 09:05
| 