多则可少则不可

xing_chen

老师！我修改了hzruziniu和准提部林两位老师的代码已便适用现在的表格，上传附件中有2个表格：“项目多”和”项目少”，2个表格格式一样，只是行数不一样。但在运行中发现两位老师的代码对“项目多”的表格运行，非常顺利，但对"项目少"的表格却出现问题。百思不得其解，现表格只是比原表格少了两列，代码中我也删除了此无关的两列，何况运行多的可以，为什么少的就不行了。敬请hzruziniu和准提部林两位老师解答，也请其他老师帮我抓我修改的代码中存在不完善的地方。谢谢！

另。电脑重装系统，后要安装软件，今天也许上不了网。抱歉

准提部林

未考慮到每行都是不重覆時的行數不足~~加3倍備位吧!!!
ReDim brr(1 To UBound(arr) * 3, 1 To 5)

xing_chen

准提部林 发表于 2022-11-27 09:45
未考慮到每行都是不重覆時的行數不足~~加3倍備位吧!!!
ReDim brr(1 To UBound(arr) * 3, 1 To 5)

谢谢老师。我按你的意思更新了。