當前位置:成語大全網 - 新華字典 - 小白請教各位大神VBA這段代碼應該怎麽修改?

小白請教各位大神VBA這段代碼應該怎麽修改?

循環有問題。如圖紅色部分:

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