下标越界

ddz79101

ykcbf1100 发表于 2024-10-19 14:34
这样改一下。。。

老师！我修改成功了！花候补

ddz79101

ykcbf1100 发表于 2024-10-19 14:34
这样改一下。。。

老师！实际操作中还是有问题，我想加：若第3列的上下单元格一致且右侧的下单元格为空，则arr(i+1,4)="777777"
我写了：
                     If n = 1 Then
                        arr(i, 4) = d(k)
                        If arr(i, 3) = arr(i + 1, 3)
                              中间的arr(i + 1, 4)为空怎么写  Then
                            arr(i + 1, 4) = "2221010101"
                        End If
                        Exit For
                    End If
老师，可以帮我指点一下吗，假如---且

ykcbf1100

ddz79101 发表于 2024-10-19 15:08
老师！实际操作中还是有问题，我想加：若第3列的上下单元格一致且右侧的下单元格为空，则arr(i+1,4)="777 ...

再改一下。。。

ddz79101

ykcbf1100 发表于 2024-10-19 15:22
再改一下。。。

老师！运行成功！但实际中发现有问题，案列中为将预先设置的编码考虑进去，导致运行你的代码出错。现在讲着案列补充完善，可以再帮我调试一下吗？我这里怎么也弄不好，近2小时了，弄得头晕了。谢谢

ykcbf1100

ddz79101 发表于 2024-10-19 17:49
老师！运行成功！但实际中发现有问题，案列中为将预先设置的编码考虑进去，导致运行你的代码出错。现在讲 ...

加个判断就行了。

ddz79101

ykcbf1100 发表于 2024-10-19 18:33
加个判断就行了。

谢谢老师！运行成功！现在满足实际操作了。谢谢老师的多次出手相助