Question

小白请教各位大神VBA这段代码应该怎么修改？

想要达到在val4下方插入对应的nn行数，直到最后一行。目前行高20，代码只运行到20行后，下面的就不会再进行匹配插入了。插入后重新获取行高的代码应该怎样写？

Answer 1

循环有问题。如图红色部分：

1，m是循环变量，不要在循环体内用其他计算方法去改变它，很容易出错。应该另外设立一个变量，比如k

2，h1是循环终值，随着行数增加，这个终值应该增加

3，变量k在小循环后也应该自增一次，才能切换到大循环。

另外，如图蓝色部分，不用每次开关一次数据库，会给数据库带来很大压力。

包括dim声明变量也不用在循环体内反复申明。

按蓝色内容把语句移一下位置。

我不妨给你举一个标准的例子：

Sub test()

start_row = 2

end_row = 11

current_row = start_row

For i = start_row To end_row

    For j = 1 To 3

        current_row = current_row + 1

        Rows(current_row).Insert xlUp

        end_row = end_row + 1

    Next

    current_row = current_row + 1

Next

End Sub

追问

按照您说的修改后nn所代表的插入行数全部插入到第三行了，而且看结果还是只执行到h1识别的行数——20行，后面的数据没有再进行插入操作，接下来我应该怎么改？

追答

不好意思，k=2的位置我标错了。应该在第一个循环外面。

另外，你那个if什么目的？应该不需要吧。

不要for p= 0 to nn，直接 for p= 1 to nn不就可以了？ 

追问

大神，执行完部分插入空白行了，但是有些行没有进行插入，我原表的第二行到第21行共20条数据，我测试的从mysql查询的值都为4，nn值都为3，按理说应该在每一行下面插入3行空白行。按照你的代码修改后只有第1、5、6、7、8、12、16条数据下面插入了3行，其他的没有插入。接下来我应该怎么改？

追答

现在的问题和循环应该没有关系了。
看一下A列和F列有没有空白？
另外，不知道你数据库的情况，我说不清楚。
最好能单步一下，在本地窗口看一下h1和nn的取值。

追问

好的，谢了大神