(若是和其他不同軟體互動之問題 請記得一併填寫)
軟體: Excel
版本:2010
項目 年 數據
A 93 223
94 223
95 223
96 223
97 223
98 223
99 223
100 223
101 223
102 223
B 93 223
94 223
95 223
96 223
97 223
98 223
99 223
100 223
101 223
102 223
最近要處理一項資料，需要於102上方插入一列，並將102資料 選擇性貼上-值。
處理後應該像：
項目 年 數據
A 93 223
94 223
95 223
96 223
97 223
98 223
99 223
100 223
101 223
102 223
空一列
B 93 223
94 223
95 223
96 223
97 223
98 223
99 223
100 223
101 223
102 223
空一列
手動插入一列之後，發現這不是辦法，
因有上百個項目，決定用一個巨集處理掉，但寫出來一直有問題，
想請大家幫忙看看哪邊有問題，需要怎麼修改才能順利完成這件事。
謝謝大家
Sub 巨集()
Set Rng = Range("B1:B400")
For Each r In Rng
If r.Value = 102 Then
Range("B", "r.Row").Select
Selection.Copy
Selection.ClearContents
ActiveWindow.LargeScroll ToRight:=-1
Range("B:r.Row-1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
End If
Next
End Sub