文字列aを一文字ずつExcelのセルに入力する方法
Excel VBAについて確認させてください。
下記のエクセルマクロはエクセルのA列に入力されてある文字を順に読み込んで
ユーザが入力したテキストファイル（＝FN1）を開いて
エクセルのA列に入力されてある文字が見つかった場合は削除する作業を
文字が入力されてある最後の行までループによって行い、
最終的に処理した文字列aを出力ファイル（＝FN2）に保存するプログラムです。
このプログラムを改良して文字列aを出力ファイル（＝FN2）に保存するのをやめて
文字列aを一文字ずつ、Excelのセルごとに1行ずつ入力するプログラムを作成したいのですが
どのようにすればよいかご教授いただけますでしょうか。
以下、プログラム本文です。
-------------------------
Sub sample()
Dim a As String
Dim y As Long
Dim x As String
Dim FN1 As String
Dim FN2 As String
x = InputBox("チェックするファイル名を入力してください。（拡張子も含めてください。）")
FN1 = ThisWorkbook.Path & "\" & x
FN2 = ThisWorkbook.Path & "\チェック済" & x
With CreateObject("Scripting.FileSystemObject").GetFile(FN1).OpenAsTextStream
a = .ReadAll
For y = 1 To Cells(Rows.Count, 1).End(xlUp).Row
a = Replace(a, Cells(y, 1), "") '読み込んだテキストファイルにエクセルのA列にある文字が見つかった場合削除
a = Replace(a, vbCrLf, "") '改行コードの削除
a = Replace(a, vbTab, "") 'タブコードの削除
Next
.Close
End With
With CreateObject("Scripting.FileSystemObject").OpenTextfile(FN2, 2, True)
.Write a
.Close
End With
End Sub
お礼
ありがとうございました。 無事解決しました。