先拆解原代码触发溢出的核心原因 #

你最初的代码：

maxRow = ws.Range(Cells(StartRow, AdditionalInfoColumns.OtherInfo).Address).End(xlDown).Row

触发“溢出”的关键场景是：当StartRow所在列的下方完全没有数据（全是空行）时，End(xlDown)会直接跳转到Excel工作表的最后一行（Excel 2007及以后版本是1048576行）。

如果你的maxRow变量声明为Integer类型（VBA中Integer的最大值仅为32767），1048576远超出这个范围，就会直接触发“溢出”错误；哪怕是Long类型，拿到这个超大行号也完全不符合你要获取“最后一行有效数据行”的实际需求。

同事的End(xlDown).End(xlUp)写法的修复原理 #

这个写法相当于做了两次反向跳转，完美规避了“跳到工作表最后一行”的问题：

1. 第一次End(xlDown)：
   • 如果StartRow下方有连续数据，会跳到该列连续数据的最后一行；
   • 如果StartRow下方全是空行，会跳到工作表的最后一行。
2. 第二次End(xlUp)：
   • 从第一次跳转后的位置往上查找，会直接定位到该列最后一个有数据的行（如果之前是全空行，就跳回StartRow；如果有数据，就停在数据的末尾行）。

最终拿到的Row是实际有数据的行号，不会是工作表的最大行，自然不会触发溢出，同时也精准匹配了你的业务需求。

你简化写法的逻辑优势 #

你修改的代码：

maxRow = ws.Range(Cells(StartRow, 1).Address, Cells(StartRow, 3).Address).End(xlDown).End(xlUp).Row

本质逻辑和单列写法一致，但多了一个适配性优势：

• 这里你选中了StartRow行的第1到第3列范围，调用End(xlDown)时，Excel会默认从这个范围的右下角单元格（即Cells(StartRow,3)）开始执行跳转，后续End(xlUp)的逻辑和单列完全相同。
• 这种写法能兼顾多列场景：比如某一列全空，但其他列有数据，最终能定位到所有列中最后有数据的行，结果更贴合导入数据校验的实际场景。

补充说明：你提到的xlDown值为-4121、xlUp值为-4162，是Excel内置的方向常量，分别对应“向下查找最后一个连续单元格”和“向上查找最后一个连续单元格”的操作。

内容的提问来源于stack exchange，提问作者Kai-Chun Lin