- 帖子
- 11
- 主題
- 4
- 精華
- 0
- 積分
- 21
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office2011
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2011-5-5
- 最後登錄
- 2015-6-27
|
本帖最後由 mpegwmvavi 於 2015-6-21 23:44 編輯
回復 7# PKKO
我想不到一次性置入的方法,
不過一條一條(直或橫)放進去是做得到的
方法是用Index這個工作表函數
不過還是要迴圈三次,儘管如此,比迴圈m*n次要快得多了
For j=3 to 5
Cells(1,j-2).Resize(10-3,1)=Application.Index(AA,0,j)
Next
參考網站:
https://usefulgyaan.wordpress.com/2013/06/12/vba-trick-of-the-week-slicing-an-array-without-loop-application-index/ |
|
發表於 2015-6-21 23:43
| 