返回列表 上一主題 發帖

[發問] 資料類型極限

s13983037

帖子
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
收藏 分享

s13983037

帖子
60 
主題
26 
精華
0 
積分
93 
點名
0  
作業系統
Windows 
軟體版本
Windows 7 
閱讀權限
20 
註冊時間
2014-9-8 
最後登錄
2020-4-15 
2#
發表於 2014-11-19 18:12 | 顯示全部帖子
回復 2# stillfish00


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

ScreenShot00081.png (11.97 KB)

附件一

ScreenShot00081.png

TOP

s13983037

帖子
60 
主題
26 
精華
0 
積分
93 
點名
0  
作業系統
Windows 
軟體版本
Windows 7 
閱讀權限
20 
註冊時間
2014-9-8 
最後登錄
2020-4-15 
3#
發表於 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

帖子
60 
主題
26 
精華
0 
積分
93 
點名
0  
作業系統
Windows 
軟體版本
Windows 7 
閱讀權限
20 
註冊時間
2014-9-8 
最後登錄
2020-4-15 
4#
發表於 2014-11-23 12:03 | 顯示全部帖子
回復 4# stillfish00


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

q2.png (4.8 KB)

附件二

q2.png

TOP

        靜思自在 : 好事要提得起，是非要放得下，成就別人即是成就自己。
返回列表 上一主題