エラー"Next"に対する"for"がありません

質問

EXCELのVBAで、A列3行目から入力されているデータ（A列2行目タイトル="FA"）を
一度全て半角に変換し、変換した"変換文字"から"!"や"#"の記号をASC関数を利用し
削除、記号だけを削除した文字列をE列に取得しようとしていますが
NEXTにたいするFORがありませんとエラーが出てしまいます。
TARGETの設定の仕方が悪いのでしょうか？
（win7/EXCEL2010使用）

Dim セル As Range
Dim TARGET As Range
Dim 変換文字 As String
Dim i As Long
Dim W As Worksheet

Set W = Sheets("DATA転記")
Set TARGET = W.Range("A3", Range("A65536").End(xlUp))

For Each セル In TARGET

変換文字 = StrConv(セル.Text, vbNarrow)

For i = 1 To Len(変換文字)

If Asc(変換文字) >= 32 And Asc(変換文字) <= 47 And _
Asc(変換文字) >= 58 And Asc(変換文字) <= 64 And _
Asc(変換文字) >= 91 And Asc(変換文字) <= 96 And _
Asc(変換文字) >= 123 And Asc(変換文字) <= 126 Then _

変換文字 = WorksheetFunction.Replace(変換文字, i, 1, "")

Next i

セル.Cells(, 5).Value = 変換文字

Next セル

回答No.3

keithin · ベストアンサー

If Asc … And _
Asc … And _
Asc … And _
Asc … Then _

の下に無駄な空白の１行を空けてしまったので，If then が途切れたのが原因です。

その１行の空白を消して　変換文字=Worksheetfunction.…　をちゃんとthen _に続けて書くか，
または今のまま
変換文字=Worksheetfunction.…　
の次に
end if
を書き足します。

＃補足すると
for nextループの中でif then end ifやwith end withの対応を書き忘れると，外側のfor nextのエラーとして警告が出ます。
逆にif then end ifの中でforに対するnextが無かったりすると，実はif end ifの対応がないと警告が出ます。

お礼

あーそうですね、無駄な1行をつけてしまったんですね！！
補足も勉強になりました、ありがとうございます。

回答No.2

kmetu

If に対する End If がありませんから If 以降で For を探してエラーになっています。
Next i の前に End If を入れてください。

お礼

すいません、何回も見直したのにひどいミスでした。
ご回答いただき、ありがとうございます！！

回答No.1

mu2011

next iの前にEnd Ifが無いからです。

お礼

すいません、何回も見直したのにひどいミスでした。
ご回答いただき、ありがとうございます！！