Question

我的公式中存在问题。检查下面的代码。

With Worksheets("L.NAM.O")
        With .Cells.Find(What:="record ID", After:=ActiveCell, LookIn:= _
            xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
            xlNext, MatchCase:=False, SearchFormat:=False)
            .Parent.Range(.Offset(1), .Parent.Cells(Rows.Count, .Column).End(xlUp)).Copy Destination:=Worksheets("NewForecast").Range("D35").PasteSpecial(xlPasteValues)
        End With
    End With

在目标中，当您粘贴我的值时，我希望它是PasteSpecial Values，但是此错误即将发生：＆＃34;运行时错误1004：无法获取Range类的PasteSpecial属性。＆＃34 ;任何想法如何解决它？非常感谢！

Answer 1

粘贴您可以避免使用Copy()方法的值，只使用Value对象的Range属性：

替代：

.Parent.Range(.Offset(1), .Parent.Cells(Rows.Count, .Column).End(xlUp)).Copy Destination:=Worksheets("NewForecast").Range("D35").PasteSpecial(xlPasteValues)

with：

With .Parent.Range(.Offset(1), .Parent.Cells(Rows.Count, .Column).End(xlUp))
    Worksheets("NewForecast").Range("D35").Resize(.Rows.Count).Value = .Value
End With

目的地+粘贴特殊错误VBA

1 个答案: