エクセルvbaで転記したのですが、数字のゼロが消えてしまいます。 ゼロも転記するためにはどうしたらい

エクセルvbaで転記したのですが、数字のゼロが消えてしまいます。
ゼロも転記するためにはどうしたらいいのですか？
どなたか教えていただけますか？

コピー元も先も最終行の変動があります。

 Sub sample() With
Sheets("Sheet2").Range("B3:D23") .Formula = "=SUMIFS(Sheet5!E:E,Sheet5!$D:$D,$D$1,Sheet5!$B:$B,$A3)" .Value = .Value .Replace What:="0", Replacement:="", LookAt:=xlWhole, _ SearchOrder:=xlByRows, MatchCase:...

No.4 回答者： ママチャリ 回答日時： 2017/09/09 01:03

NO.3さんの回答が正解です。

ゼロがあると見にくいと思って、意図的に空白に変換しています。
その命令を削除してしまえば、ゼロが表示されたままになります。

この回答へのお礼

それが、ここを変更したところ、sheet2すべての行に０が入ってしまうんです。
転記した行だけはどうすればいいのですか？

お礼日時：2017/09/09 18:30

No.3 回答者： neKo_deux 回答日時： 2017/09/08 10:24

改行がめちゃくちゃだし、コードも一部なので良く分かりませんが、

> .Replace What:="0", Replacement:="",

「0」
を
「」(文字列なし)
に置換してるから消えてるのでは？

この回答へのお礼

やってみたのですがここではないようです。

お礼日時：2017/09/08 18:39

No.2 回答者： xMAKISHIx 回答日時： 2017/09/08 09:56

コピー先のゼロを転記する範囲を予め書式設定で文字列にしておくか

VBAで転記する前に「Range(ゼロを転記する範囲).NumberFormatLocal = "@"」で文字列に設定すると消えないです。

この回答へのお礼

文字列にしたら数式が入ってしまいました。
入れるところがちがうのでしょうか。

お礼日時：2017/09/08 18:40

No.1 回答者： zircon3 回答日時： 2017/09/08 09:38

転記先のセルの書式を確認ください。

先頭の0を表示しないような設定になっていませんか？

参考まで。

この回答へのお礼

ここではないようです。

お礼日時：2017/09/08 18:40