- 帖子
- 163
- 主題
- 1
- 精華
- 0
- 積分
- 170
- 點名
- 0
- 作業系統
- Window 7
- 軟體版本
- Office 2007
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-9-5
- 最後登錄
- 2022-7-20
|
2#
發表於 2013-11-6 18:55
| 只看該作者
Sub test()
Dim arr
Sheets("採購單").Select
arr = Array([B5], [D5], [J5], [C6], [B9], [D9], [E9], [F9], [G9], [H9], [I9])
Sheets("庫存記錄").Select
Cells([A65536].End(3).Row + 1, 1).Resize(1, UBound(arr)) = arr
End Sub |
|
