VB选中我的区域 填上我要求的东西

Sub select2()
[a1].CurrentRegion.Select
Dim i As Range
For Each i In Selection
   If i = "" Or i = "N" Then
   i = "false"
   End If
Next
End Sub