Sub？插入行()
'
？宏1？宏偉的
'
'?'定義兩個動態數組來存儲B列和c列的數據。
暗淡？壹個()，？乙()
定義壹個整數來存儲現有數據行數。
暗淡？m？作為？整數
獲取現有數據的行數
m？=?ActiveSheet。UsedRange.Rows.Count
重新定義數組的大小
雷迪姆？a(m)，？乙(男)
將列B和列C的數據分配給兩個數組A()和B()
為了什麽？我？=?1?去哪？m
甲(我)？=?細胞(我，？2)
乙(壹)？=?細胞(我，？3)
然後
選擇第二條線和整條線。
rows(" 2:2 ")entire row . select。
開始插入空白行並填寫單元格數據。
為了什麽？我？=?1?去哪？m
為了什麽？j？=?1?去哪？答(壹)
插入新的壹行
選擇。插入？Shift:=xlDown，？copy origin:= xlformatfromleforabove
將c列的值賦給新插入行的第壹個單元格。
ActiveCell。價值？=?b(壹)
將活動單元格下移壹行。
ActiveCell。偏移量(1，？0).rows(" 1:1 ")entire row . select。
然後
將活動單元格下移壹行。
ActiveCell。偏移量(1，？0).rows(" 1:1 ")entire row . select。
然後
結束？潛水艇
-
感覺還行，記得領養！