お世話になります。
エクセル２０１０を使っています。
たとえばシート1に、以下のような行があったとしましょう。
A B C D
１（ １ ）（2011/11/11）（にんじん）（100）
（）はセルを表し、（）内がセル内のデータです。
この行を、シート２に自動入力する方法を教えてください。
よろしくお願いします。
A列3行目からはじまる（A列2行目タイトル=FA）データより"!"や"#"などの記号を取り除いた
ものをE列に表したいと思っています。
データを半角にして、ASC関数を使って記号を取り除こうとしたのですが、半角になるだけで
記号を取り除くことができません。
If の後、ASC関数は使用せず、"!"や"#"を指定しても結果が同じだったんですが
REPLACEの使い方が間違っているのでしょうか？
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, "")
End If
Next i
セル.Cells(, 5).Value = StrConv(セル.Text, vbWide)
Next セル
A列3行目からはじまる（A列2行目タイトル=FA）データより"!"や"#"などの記号を取り除いた
ものをE列に表したいと思っています。
データを半角にして、ASC関数を使って記号を取り除こうとしたのですが、半角になるだけで
記号を取り除くことができません。
If の後、ASC関数は使用せず、"!"や"#"を指定しても結果が同じだったんですが
REPLACEの使い方が間違っているのでしょうか？
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, "")
End If
Next i
セル.Cells(, 5).Value = StrConv(セル.Text, vbWide)
Next セル
エクセルＶＢＡです。
例えば、Ａ１とＢ２に「a」と入力したい場合は、
Sub test１()
Cells(1, 1) = "a"
Cells(2, 2) = "a"
End Sub
とするしかないのでしょうか？
Sub test2()
Range(Cells(1, 1), Cells(2, 2)) = "a"
End Sub
だと、
Ａ１、Ａ２、Ｂ１、B2に「a」が入力されてしまいました。
test２のように、1行で離れているセルに「a」と入れる方法があれば教えて下さい。
（:は使わない方法です）
ご回答よろしくお願い致します。
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 セル
