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

可能是你的公式返回一些＆＃34;零＆＃34;日期和＆＃34; F6：F31＆＃34;的格式细胞是＆＃34;＃＆＃34;所以你不要这样做。查看任何内容

否则，请尝试以下替代方法仅粘贴值：

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

xlPasteValues不反映复制的内容

1 个答案: