(若是和其他不同软件互动之问题 请记得一并填写)
软件: 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