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

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2014-11-19 14:51 | 只看該作者

[發問] 資料類型極限

各位大大您們好我比較常需要把多個工作表彙整成一個工作表中我把資料類型弄到 Integer 仍然還是不太夠用
我記得Excel最大儲存格是一百萬有可能將類型弄到這個大小嗎或者讓這個限制可以增加麻煩大大們了

　　Sub CombineSheet()
　　Dim i, j, k, n As Integer
　　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
　　End Sub

樓主熱帖

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

2^#

發表於 2014-11-19 15:07 | 只看該作者

回復 1# s13983037
1. Integer 範圍 -32,768 到 32,767 ,
Long 範圍 -2,147,483,648 到 2,147,483,647
所以改Long就可以了
2. Dim i, j, k, n As Integer 要注意這樣的寫法只有n是宣告為 Integer，i、j、k都是宣告為variant。
如果都要宣告Long，要寫成這樣...
Dim i As Long, j As Long, k As Long, n As Long

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

s13983037

中學生 Rank: 2

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

3^#

發表於 2014-11-19 18:12 | 只看該作者

回復 2# stillfish00

大大您好我剛剛是過把資料類型轉成Long 會變成附件一的類型

ScreenShot00081.png (11.97 KB)

附件一

TOP

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

4^#

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

回復 3# s13983037
點偵錯，打開區域變數視窗，看哪裡錯誤何時發生
或把檔案附上來

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

s13983037

中學生 Rank: 2

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

5^#

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

回復 4# stillfish00

大大您好以下是我的VBA 程式碼另有附件一為圖檔
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

TOP

s13983037

中學生 Rank: 2

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

6^#

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

回復 4# stillfish00

附上EXCEL 到達的行數應該為資料型態不足所以無法貼上麻煩大大了

q2.png (4.8 KB)

附件二

TOP