- 帖子
- 2848
- 主題
- 10
- 精華
- 0
- 積分
- 2903
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2026-7-25
|
本帖最後由 准提部林 於 2017-1-23 13:10 編輯
資料必須[排序]的:- Sub TEST()
- Dim xArea As Range, xR As Range, xF As Range, xG As Range, G%
- Set xArea = Range([A3], Cells(Rows.Count, 1).End(xlUp))
- Application.ScreenUpdating = False
- For Each xR In xArea
- If xR = "" Or xR = xR(1, 7) Then GoTo 101
- Set xF = [G:G].Find(xR, Lookat:=xlWhole)
- If xF Is Nothing Then GoTo 101
- G = xR.Row - xF.Row
- If G > 0 Then Set xG = xF Else Set xG = xR
- xG.Resize(Abs(G), 5).Insert Shift:=xlDown
- 101: Next
- End Sub
 Xl0000009.rar (29.67 KB)
|
|
發表於 2017-1-23 13:06
| 
