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