表示形式が混在したセルを見た目通りのまま表示形式が文字列の別のセルにコピーするいい方法ありませんか
例えばA1～A3を、この見た目のまま表示形式が文字列のB1～B3にコピーしたい場合
　　A
1　$1,000
2　2019/1/1
3　9:30

①
　Dim buf() As Variant
　buf = Range("A1:A3").Value
　Range("B1:B3").Formula = buf　'←そのまま入れてみる
B1～B3は 3/6/2019、0.836111111、\10,000.00 になる

②
　Dim buf() As Variant
　Dim buf2(1 to 3, 1 to 1) As String
　buf = Range("A1:A3").Value
　For i = 1 to 3
　　buf2(i, 1) = buf(i, 1)　'←文字列型にして入れてみる
　Next
　Range("B1:B3").Formula = buf2
B1～B3は 2019/03/06、0.836111111111111、10000 になる

①②どちらも書式が勝手に変わります
ちなみにセル範囲を配列に直接つっこまず、文字列型の配列に1セルずつ buf = Range(i, j).Text みたいな感じで入れてからセルに貼り付けると希望の結果になりますがめちゃくちゃ時間がかかります（大量データに使いたいので）
他にやり方があれば教えてください