１つのセルの文字の先頭と最後に ' シングルコーテーションを追加するには？

のべたん 2008-04-25 14:03:48 No: 139607 IP: 192.*.*.*

１つのセルの文字の先頭と最後に ' シングルコーテーションを追加する方法を教えてください。

行数は１０万以上有り、困り果てています。

最終的にやりたいことは、DBへのインポートです。

以上、宜しくお願いします。

魔界の仮面弁士 2008-04-25 19:01:28 No: 139608 IP: 192.*.*.*

ここでいうセルというのは、何のことでしょうか?
VB 用語では無さそうですけれども…。

状況が良く分からないので、勝手に Excel 2007 の VBA の話だと仮定しますが、
たとえば A1:A100099 のセル範囲にデータがある場合は

  Sheet1.Columns(1).Insert
  With Sheet1.Range("A1:A100099")
    .FormulaR1C1 = "=""'""&RC[1]&""'"""
    .Copy
    .Offset(, 1).PasteSpecial xlPasteValues
    .Delete
  End With

とすれば、それらの前後に「'」が付与されますよ。

編集削除