文字列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

回答No.1

imogasi · ベストアンサー

お礼欄で補足お願い。
シートのＡ列の数行の模擬データを質問に載せて、どういう場合に、どうしたいのか、文章で１ステップずつ表現してみてください。
あくまで書き方の例
（１）Ａ１セルでaがガ無いか探す
（２）在れば何何する
ーー
この質問は相当読みにくい。
（１）自分のＶＢＡコードなど書く必要ないでしょう（回答者は参考にするほどの初心者ではないはず）。
（２）「何々せずに」の部分も質問には書く必要は無いでしょう（回答に関係のない質問者の思考過程でしかない）

お礼

遅くなって申し訳ございません。

早速のご回答ありがとうございます。

分かりやすいご説明、誠にありがとうございます。

ご参考にさせていただきます。