excel 带有复制目标的xlPasteValue

5w9g7ksd 于 2023-04-07 发布在其他

关注(0)|答案(1)|浏览(107)

我想复制源列“H”中的值，而不是公式。

With Sheets("Sheet")
    With .Range("H8", .Range("H" & Rows.Count).End(xlUp))
        .AutoFilter Field:=1, Criteria1:=">0"
        If .SpecialCells(xlVisible).Count > 1 Then .Offset(1).Resize(.Rows.Count - 1).Copy Destination:=Sheets("Register").Range("A" & Rows.Count).End(xlUp).Offset(1)
    End With
    .AutoFilterMode = False
End With

我尝试将.PasteSpecial xlPasteValues附加到它的末尾。

excel

来源：https://stackoverflow.com/questions/72987201/xlpastevalue-with-copy-destination

1条答案

按热度按时间

wfveoks01#

把它分成两行：

With Sheets("Sheet")
    With .Range("H8", .Range("H" & Rows.Count).End(xlUp))
        .AutoFilter Field:=1, Criteria1:=">0"
        If .SpecialCells(xlVisible).Count > 1 Then
             .Offset(1).Resize(.Rows.Count - 1).Copy
             Sheets("Register").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues
        End If
     End With
     .AutoFilterMode = False
End With

赞(0）回复(0）举报 2023-04-07

我来回答

excel 带有复制目标的xlPasteValue

1条答案

相关问题

热门标签

最新问答