- 帖子
- 10
- 主題
- 5
- 精華
- 0
- 積分
- 16
- 點名
- 0
- 作業系統
- windows XP
- 軟體版本
- SP3
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2010-7-23
- 最後登錄
- 2011-7-3
|
試試以下方法
Sub data_download()
With Sheet1
ar1 = Array([A2], [B2], [C2], [D2])
ar2 = Array([A3], [B3], [C3], [D3])
ar3 = Array([A4], [B4], [C4], [D4])
End With
With Sheet2
.[A65536].End(xlUp).Offset(1, 0).Resize(, 3) = ar1
.[A65536].End(xlUp).Offset(1, 0).Resize(, 3) = ar2
.[A65536].End(xlUp).Offset(1, 0).Resize(, 3) = ar3
End With
End Sub |
|
發表於 2011-6-20 13:57
| 