【VBA】カンマを無くすには

質問

下記のマクロで返された値をcsvファイルとして保存すると、最後の値の後に、複数のカンマが付いて保存されてしまいます。

マクロ　：　Cells(r + 1, 4).FormulaR1C1 = "=(TEXT(HOUR(NOW()),""00"")&TEXT(MINUTE(NOW()),""00"")&TEXT(SECOND(NOW()),""00""))*1"

csvの結果　： 220236,,,,,,,,,,,,,,,

この複数のカンマを付けずに値だけをcsvで保存する方法を教えてください。

宜しくお願いいたします。

回答No.2

merlionXX

>　マクロで返された値と同じ列に移動させるとは、どういうことを指してらっしゃいますか。

わたしにはあなたのおつくりになったシートが見えません。
だから、あなたが、

> 下記のマクロで返された値をcsvファイルとして保存すると

と書いていたので、その値がある列という意味で書きました。
その列から、カンマの数だけ右の列のどこかの行（上か下かはわかりません）に何らかの値が入っているはずです。
その値を、削除するか他のデータと同じ列にもってくれば良いのではないかということです。

回答No.1

merlionXX

そのカンマの数だけ右の列のどこかにデータがあるからです。
そのデータを消去するか、ご提示のマクロで返された値と同じ列に移動させれば消えると思います。

補足

早速のご回答どうもありがとうございます。
マクロで返された値と同じ列に移動させるとは、どういうことを指してらっしゃいますか。

マクロで返した値の右側すべての列に値はありませんでした。
さらに、値の右隣から最終セルまでを選択して値の削除をしてみましたが、やはりカンマが残ってしまいます。。

マクロの組み立て方に改善の余地があるのでしょうか。