CSVファイルもしくはExcelの使い方

質問

文字列と数字が書いてあるCSVファイルをExcelで開いて、数字の列だけ””（ダブルクォーテーション）で各セルの数字ごとに囲みたいのですが、一つ一つではなく、まとめて出来るようなやり方ってありますか?
最終的には、テキストで開いたときに、例のようになればいいのですが・・・

例　”200”，”1000”，ABC株式会社，”983000”，
営業，”351000”，事務，”200”

回答No.1

cafe_au_lait

まとめてというのは、一つのファイルについて一度にという意味でしょうか？それとも、複数ファイルを処理するのでしょうか？

とりあえず、1ファイル版です。アクティブなシートの数値に対して""を付けます。数式の結果は無視しています。

Alt+F11を押して、出てきた画面に以下のコードを貼り付けてください。

Option Explicit

Sub sample()
Dim rng As Range
For Each rng In ActiveSheet.Cells.SpecialCells(xlCellTypeConstants, xlNumbers)
rng.Value = """" & rng.Value & """"
Next rng
End Sub

お礼

説明が足りませんでしたが、１ファイルで、です。

教えていただいた方法で、出来ました。ありがとうございました。