If Dir(strFileName) = "" Then
Next i
End If
这里的Next i删除
应该有个sub,另外你的next不能放在if的里面,例如可以这样:Sub xxx()Dim rCell As Range For Each rCell In Selection If rCell.Value = " =223 " Then rCell.Value = " &9;=222 "End If Next rCell End Sub...
只看到一个for却出现了两个next,当然错误!
最后一行删掉。