[已解决]如何实现数据延续

cunfu2010

能不能解释一下这段代码，特别是红色的几句：
                    k(j) = k(j) + 2
                     k1 = k(j) + 1: k2 = k(j) + 2
                    r = Cells(65536, j + 15).End(3).Row
                   If k1 > r Then
                        k1 = 2: k(j) = 1: k2 = 3
                    ElseIf k2 > r Then
                        k2 = 2: k(j) = 1
                    End If
                    Cells(i, j + 5) = Cells(k1, j + 15) & Chr(10) & Cells(k2, j + 15)

最佳答案

月排行榜 / 总排行榜

grf1973

2016-4-20 09:23

不用这么麻烦啦，我又想了个更好的办法，底下空的内容直接=上一轮名单，这样取名字就不用考虑底下有没有名字，要不要从头开始了。

跳转到最佳答案楼层

grf1973

不用这么麻烦啦，我又想了个更好的办法，底下空的内容直接=上一轮名单，这样取名字就不用考虑底下有没有名字，要不要从头开始了。

cunfu2010

grf1973 发表于 2016-4-20 09:23
不用这么麻烦啦，我又想了个更好的办法，底下空的内容直接=上一轮名单，这样取名字就不用考虑底下有没有名字 ...

感谢！！！！