Excel VBA PasteSpecial with xlPasteSpecialOperationAddが動作しません。

Question

マクロレコーダーを使用して生成したコードを取得しようとしています。私が使用しているスプレッドシートには、数値や日付のみを含む列がいくつかありますが、何らかの理由で一部の値がテキストとして格納されています。

これを解決するために、0をすべてのセルにコピーして貼り付けることにしました。私が手作業で行うと、うまく動作します。だから、私はコードを取得するためにExcelマクロレコーダーを始めた。私は生成されたコードにいくつかの変更を加えました。これは読みやすく、きれいにするためですが、実際には元のコードもバージョンも機能しません。なぜこれが動作していない

Range("F1").Value = 0 
Range("F1").Copy 
Set rngPaste = Range(Range("D3:E3"), Range("D3:E3").End(xlDown)) 
rngPaste.PasteSpecial Paste:=xlPasteValues, Operation:=xlPasteSpecialOperationAdd, 
              _ SkipBlanks:=False, Transpose:=False 
Set rngPaste = Range(Range("G3:J3"), Range("G3:J3").End(xlDown)) 
rngPaste.PasteSpecial Paste:=xlPasteValues, Operation:=xlPasteSpecialOperationAdd, 
              _ SkipBlanks:=False, Transpose:=False 
Application.CutCopyMode = False 

任意のアイデアを次のように

コードはありますか？

ありがとうございます！

Answer 1

の代わりにこの（それは私のテストで働いていた）

With Range(Range("D3:E3"), Range("D3:E3").End(xlDown)) 
    .Value = .Value2 
End With 
With Range(Range("G3:J3"), Range("G3:J3").End(xlDown)) 
    .Value = .Value2 
End With