求修改一excel宏代码！

多了个next，删除试试
用这个试试
Sub 宏2()
'
' 宏2 宏
'

'

ActiveSheet.Range("$A$1:$C$13").AutoFilter Field:=1, Criteria1:="北京"
ActiveSheet.Range("$A$1:$C$13").AutoFilter Field:=2
Range("C2:C12").Select
Selection.Copy
Range("B2").Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B2").Select
ActiveSheet.Range("$A:$C").AutoFilter Field:=1
Application.CutCopyMode = False

End Sub

Sub 替换()
dim sht as worksheet
set sht=Sheets("表二")
for i=1 to 1000000
if sht.cells(i,1)="北京" and sht.cells(i,2)="东城" then sht.cells(i,2)=sht.cells(i,3)
next
end sub