- 帖子
- 29
- 主題
- 8
- 精華
- 0
- 積分
- 58
- 點名
- 0
- 作業系統
- WinXP
- 軟體版本
- office2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2015-3-2
- 最後登錄
- 2015-6-1
|
不知有沒有符合你的期方式
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Workbooks("A.xls").Activate
Sheets("sheet1").Range("A1 4").Copy
Workbooks("B.xls").Activate
Selection.PasteSpecial xlPasteAll
End Sub |
|
發表於 2015-3-12 23:38
| 