強制的にシングルコーテーションをつけるマクロを教えてください。

質問

いろいろやってみたいのですが
うまく行かず行き詰っています。
どなたかアドバイスお願いします。

Excel2002を使用しています。
ピボットテーブルで集計された表を使って
別表の検索キーとなるA列の値と合致した場合
B列の値を入れる一覧表を作成しています。

別表はデータベースの値を使用していて
テキストとしてエクスポートされています。
ピボットテーブルで求められた値を
VLOOKUPで検索するために一度別シートに
値のみ貼り付けを行っています。

しかしうまく値が拾えません。
セルの表示形式などを変えたのですが
拾ってくるところと拾わないところにばらつきが
あります。

値の前に'（シングルコーテーション）を
つけて強制的に文字列として扱うと拾ってきます。
1つの表が300行近くあり列も150列と膨大な表です。

出来たらピボットテーブルの値を別シートに
貼り付けるときに一緒にA列の値にのみ
'（シングルコーテーション)をつけるマクロを
教えていただけたらと思います。

よろしくお願い致します。

回答No.1

papayuka · ベストアンサー

実際にどんなデータを使って、どんなマクロを記述しているのか、良く理解できません。

VLOOKUPで検索したいのは数値？
貼り付け側のA列のデータ範囲を選択して、データ－区切り位置－完了としてもVLOOKUPは拾わないでしょうか？

また、マクロでアポストロフィを付けるってこんな感じですか？

Sub Test()
Dim r As Range
For Each r In ActiveSheet.Range("A1:A100")
　r.Value = "'" & r.Value
Next r
End Sub

お礼

マクロやってみました！ありがとうございました。
こちらを使わせて頂きます。
ありがとうございました

補足

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

取引先のシステムから取引のあった商品コードと
商品名がエクスポートされて送られてきます。

例として
012345　コーヒー
023456　紅茶

こちらには商品の売上明細があって
例
　水出しコーヒー　500円　012345
　水出しコーヒー　500円　012345
　セイロン紅茶　　300円　023456

それを商品名でピボットテーブルにて集計しています。
　　　　　　　　　012345　023456
　水出しコーヒー　1000円　
　セイロン紅茶　　　　　　300円

商品コードは取引先と＝なのですが
商品名をキーに売上管理をしているので
一度ピボットテーブルで集計したのち
商品コードと合計金額のみを切り出して別シートに
貼り付けて加工して（ここまでをマクロで
記録しています。中身は単純に明細をピボットで
集計して列と行を入れ替えて貼り付け不要な行を
削除しています）
取引先の商品コードをVLOOKUPで付け合せて
合計金額を表示しています。

データの区切り位置については気がつきませんでした。
早速試して見たいと思います。
またマクロも早速やってみたいと思います。
ありがとうございました。