返回列表下一主題上一主題發帖

[發問] 溢位問題

s13983037

中學生 Rank: 2

帖子: 60
主題: 26
精華: 0
積分: 93
點名: 0
作業系統: Windows
軟體版本: Windows 7
閱讀權限: 20
註冊時間: 2014-9-8
最後登錄: 2020-4-15

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-11-23 23:35 | 只看該作者

[發問] 溢位問題

溢位問題,以下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