コピーされた内容を反映しないxlPasteValues

Question

ある範囲の値を別の範囲にコピーしようとしていますが、xlPastValues関数がコピーしている内容を反映していません。エラーはありません。F6の範囲に空白のセルが表示されています。助けてください。

With Worksheets(4) 
    '[D4] Main date 
    Worksheets(4).[J1].Value = Worksheets(1).[D4] 
    '[J6:J31] holds formulas to calculate certain dates 
    Worksheets(4).[J6:J31].Copy 
    Worksheets(4).[F6].PasteSpecial Paste:=xlPasteValues 
    Application.CutCopyMode = False 
End With 

Answer 1

は、あなたの式は、いくつかの「ゼロ」の日付を返すことと「F6：F31」の形式であることもあなたは「が何

が表示されないように、細胞は「＃」であるそうしてみてください値を貼り付けるための次の代替方法に従う：

With Worksheets(4) 
    '[D4] Main date 
    .[J1].value = Worksheets(1).[D4] 
    '[J6:J31] holds formulas to calculate certain dates 
    With .[J6:J31] '<--| reference "source" range 
     .Offset(, -4).value = .value '<--| "destination" range is 4 columns left of the "source" one 
    End With 
End With