[問題] VBA求解

[h02158 ()]

(若是和其他不同軟體互動之問題 請記得一併填寫)
軟體:Excel

版本:2016

當我執行少數文件時不會跳出問題，但我執行較多文件時會跳出問題，請問如兩張下圖這
個錯
誤要如何解呢？…謝謝！
https://i.imgur.com/y8U8QKH.jpg
https://i.imgur.com/dNE5fCK.jpg

 完整程式碼如下
https://drive.google.com/file/d/1J7B-Bl2bTv-kfYAag9ua3SgU_aZqxbxw/view?usp=sha
ring

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 42.73.125.87 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1703840135.A.428.html
※ 編輯: h02158 (42.73.125.87 臺灣), 12/29/2023 17:06:27
※ 編輯: h02158 (42.73.125.87 臺灣), 12/29/2023 17:15:58
推 chunchanhung: 第一個狀況，需要指定WB不然再切換WB會發生這狀況
推 salqv: 1.前面是不是有切換檔案之類的動作？select之前要先切回檔
→ salqv: 案和工作表。2.新版本不確定，舊版本最後一列是65536。
推 chunchanhung: 第二點可以用cells(rows.count,1) 來避免新舊版本欄
→ chunchanhung: 位最大值 不同問題
→ waiter337: cells(rows.count,2)
→ waiter337: 1的問題 可能n爆了 或者n是0  變成a0
→ h02158: ch大,因為VBA是之前離職的員工寫的，我對VBA了解尚淺，只
→ h02158: 能做小修改，能告訴我第二狀況要把cells(rows.count,1)這
→ h02158: 個加在哪或是在哪個地方修改嗎？
→ h02158: sa大，都是在同一個檔案做動作，只是會在不同工作表切來
→ h02158: 切去
→ h02158: wa大，cells(rows.count,2)這個要加在哪或在哪裡修改呢？
推 newacc: 把Range("B1048576")改成Cells(Rows.Count, 2)
→ h02158: 謝謝n大，但我改完還是溢位 https://i.imgur.com/si6Ii9S.
→ h02158: jpg
→ h02158: https://i.imgur.com/JAPLRDk.jpg
※ 編輯: h02158 (42.73.143.45 臺灣), 01/02/2024 14:00:52
※ 編輯: h02158 (42.73.143.45 臺灣), 01/02/2024 14:01:34
※ 編輯: h02158 (42.73.143.45 臺灣), 01/03/2024 11:13:12
→ newacc: Dim k5 As Long 不要用integer