- 帖子
- 15
- 主題
- 4
- 精華
- 0
- 積分
- 50
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- OFFICE2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2012-8-3
- 最後登錄
- 2013-7-15
|
因為不知道資料來源的大小,但改成myarray(a, 1)會出錯
'Dim a As Integer
'a = Cells(Range("A65536").End(xlUp).Row, 1).Row - 1
Dim myarray(1783, 1) 可以改成 Dim myarray(a, 1)
For i = 0 To 1783
For j = 0 To 1
myarray(i, j) = Cells(i + 1, j + 1)
Next j
Next i |
|
發表於 2013-6-11 11:34
| 
