標題: [發問] 資料類型極限 [打印本頁]

---

作者: s13983037    時間: 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    時間: 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

---

作者: s13983037    時間: 2014-11-19 18:12

回復 2# stillfish00


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

---

作者: stillfish00    時間: 2014-11-19 23:12

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

---

作者: s13983037    時間: 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


[attach]19646[/attach]

---

作者: s13983037    時間: 2014-11-23 12:03

回復 4# stillfish00


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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)