VBA 13桁の数字を正常に表示させたい

Question

vbaで13桁の数字をセルへ出力すると、桁が変わってしまいます。
1234567890123→1234570000000
4116304953499→4116300000000　
etc...

ThisWorkbook.Worksheets("Sheet1").Range("A1:A10").FormulaR1C1 = ThisWorkbook.Worksheets("Sheet2").Range("B1:B10").FormulaR1C1

コードはこちらです。
Decimalに変換も考えましたが、セルを指定の場合いの使い方が分かりません。
ご教示いただければ幸いです。

Comments

[y_waiwai]

提示のコードはちゃんと実行できるでしょうか。
このセルと数字の関係がわかりません。
どこのセルにどういう数字が入ってるという話なんでしょう

[12356]

至らない点が多く申し訳ございません。

コードは実行できております。
・シート２にCSVを読込み
・シート２[B1～B10]の数字(各々13桁の数字)を、シート１[A1～A10]に書き出し←こちらを実現させたいです。

お手数おかけして申し訳ございません。
ご教示いただけますと幸いです。

Answer 1

事象の原因がよくわかりませんが、こうしてみたらどうでしょう。

ThisWorkbook.Worksheets("Sheet1").Range("A1:A10").NumberFormat = "0000000000000"

Comments

[12356]

ご提示いただいたコードで無事に解決できました！
大変勉強になりました。
ありがとうございます！