(若是和其他不同软件互动之问题 请记得一并填写)
软件: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

第一个状况，需要指定WB不然再切换WB会发生这状况

1.前面是不是有切换档案之类的动作？select之前要先切回档案和工作表。2.新版本不确定，旧版本最后一列是65536。

cells(rows.count,2)1的问题 可能n爆了 或者n是0 变成a0

第二点可以用cells(rows.count,1) 来避免新旧版本字段最大值 不同问题

ch大,因为VBA是之前离职的员工写的，我对VBA了解尚浅，只能做小修改，能告诉我第二状况要把cells(rows.count,1)这个加在哪或是在哪个地方修改吗？sa大，都是在同一个档案做动作，只是会在不同工作表切来切去wa大，cells(rows.count,2)这个要加在哪或在哪里修改呢？

把Range("B1048576")改成Cells(Rows.Count, 2)

谢谢n大，但我改完还是溢位 https://i.imgur.com/si6Ii9S.jpghttps://i.imgur.com/JAPLRDk.jpg

Dim k5 As Long 不要用integer