format 関数 小数点を消す方法

VBAで新しいBOOKを追加した後に
元のBOOKから通貨単位のデータをセル範囲指定でいっきに
追加したBOOKに貼り付けています。
その時に元のデータは少数点を表示していないに
貼り付けられたデータでは2位まで表示されしまいます。

Workbooks(strBname).Sheets("Sheet1").Range("H4" & ":" & "H" & lastR).Value = Workbooks("【販売代行】支払明細書作成_ver1.00.xls").Sheets("販売委託店舗一覧 ").Range("X4" & ":" & "X" & lastR).Value

上記のような形で設定しています。
小数点を無くす方法を教えていただきたいです。
よろしくお願いします。

No.2 ベストアンサー 回答者： avanzato 回答日時： 2010/01/16 17:23

こんにちは。

質問のコードの後処理で
Range("H4" & ":" & "H" & lastR).NumberFormatLocal = "G/標準"
もしくは
Range("H4" & ":" & "H" & lastR).NumberFormatLocal = "0_ "
をすればセルの書式を変更することが出来ます。

この回答へのお礼

参考になりました。
ありがとうございます。

お礼日時：2010/01/25 14:39

No.1 回答者： f272 回答日時： 2010/01/15 20:59

コピー先のNumberFormatLocalを設定すればいいんじゃないの？