循環有問題。如圖紅色部分:
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