急切求帮助

双眼皮lsk

在线求帮助，代码运行出现下标越界提示，不知道什么原因。如何修改代码。表二"全面检查汇总"表单元格填充黄色区域的数据会根据M、N、O、P列数据点击控件会自动生成所需要的数据（生成数据在F、K列），M、N、O、P列有多行数据，附件只列举了少数几行数据。

双眼皮lsk

我好像忘传附件了，明天再传附件吧。

3190496160

看了个寂寞，里面啥代码也没有

双眼皮lsk

不会吧，我可能把代码误删了。

excel玉米

F列很简单，K列有点难

excel玉米

双眼皮lsk

excel玉米 发表于 2023-3-22 20:28

你好老师，还有个问题想咨询一下，0列的号码不一定都是由小到大排列，只需要统计相同地点、段号对应的O列号码的开头那个号码数字和最后那个号码数字。比如：津站1锚段开头的号码是52#，中间的号码是105#、103#等等很多，最后的号码是12#。最后统计结果应该是：津站1锚段52#-12#共计：多少条公里。

excel玉米

Strj=arr(s,2) & Application.Max(brr) & Application.Min(brr)
把原来的一句改成这个试试。
如果因为brr值后面都带#号无法求最大最小值，把brr(m)=arr(s,3)改为brr(m)=replace(arr(s,3),"#")
Dim maxstr$,minstr$  '定义两个常量
maxstr=Application.Max(brr)
minstr=Application.Max(brr)
strj=maxstr & "#" & minstr & "#"

双眼皮lsk

excel玉米 发表于 2023-3-23 07:47
Strj=arr(s,2) & Application.Max(brr) & Application.Min(brr)
把原来的一句改成这个试试。
如果因为brr ...

好的，我试一下。