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


のべたん  2008-04-25 23:03:48  No: 139607

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

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

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

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


魔界の仮面弁士  2008-04-26 04:01:28  No: 139608

ここでいうセルというのは、何のことでしょうか?
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

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


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加