VBAの記述方法について

罫線や色がつけられたコピー先のエクセルファイルに値だけ貼り付けて、データを転記しようと考えています。
.Worksheets(1).Range("B2:B145").Copy xBk.Worksheets(1).Range("C5").xlPasteValuesのような式をかきまし

たが、貼り付け先では、値だけコピーされず、罫線や色の情報が失われてしまします。
値のみを転記し、罫線や色、フォントの情報を残すには、どのようにコピー文を書き換えればよろしいでしょうか。

お手数をおかけいたしますが、よろしくお願いいたします。

No.3 回答者： kmetu 回答日時： 2013/10/28 20:41

xBk.Worksheets(1).Range("C5").xlPasteValues

↓

xBk.Worksheets(1).Range("C5").PasteSpecial Paste:=xlPasteValues

こちらに変更してください。
PasteSpecial が形式を選択して貼り付けの事になり、xlPasteValuesで値になります。

思った動作をしないときには、マクロの記録をして、それでできたコードを参考にされたらよろしいと思います。

記録をすると

Range("C5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

こんなコードが出来上がってきます。PasteSpecialでHELPを見ると他の引数の説明が見れます。

No.2 回答者： tom04 回答日時： 2013/10/28 20:16

こんばんは！

安直な方法ですが・・・

.Worksheets(1).Range("B2:B145").Copy xBk.Worksheets(1).Range("C5").xlPasteValues
を
.Worksheets(1).Range("B2:B145").Copy
xBk.Worksheets(1).Range("C5").Select
Selection.PasteSpecial Paste:=xlPasteValues
Selection.PasteSpecial Paste:=xlPasteFormat

のように別々にコピー＆ペーストしてみてはどうでしょうか？
（値と書式のみの貼り付けとしています）

※　他に良い方法があればごめんなさいね。m(_ _)m

No.1 回答者： watabe007 回答日時： 2013/10/28 20:14

xBk.Worksheets(1).Range("C5:C148").Value = Worksheets(1).Range("B2:B145").Value

では