溢位問題,以下VBA為抓取其他分頁貼到第一個分頁的程式,但如果超過65536..會產生溢位問題,是否有大大可以進行修正??
非常感謝
Dim i As Long, j As Long, k As Long, n As Long
n = 1
For i = 2 To ThisWorkbook.Sheets.Count
For j = 1 To ThisWorkbook.Sheets(i).UsedRange.Rows.Count
For k = 1 To ThisWorkbook.Sheets(i).UsedRange.Columns.Count
ThisWorkbook.Sheets(1).Cells(n, k).Value = ThisWorkbook.Sheets(i).Cells(j, k).Value
Next k
n = n + 1
Next j
Next i |
發表於 2014-11-23 23:35
| 
