Question

我只是需要帮助才能做到这一点。当我复制宏复制所有（包括公式）和我想要的只是复制值。任何人都可以帮忙吗？

Sub Gerar()

    Range("B28:AR29").Select
    Selection.Copy
    Sheets("testettt").Select
    Range("B22:AR23").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
    Sheets("Dados Pessoais + Exper. Prof").Select
    Range("A3").Select

End Sub

Answer 1

可以试试这个：

Range("B28:AR29").Select
Selection.Copy
Sheets("testettt").Select
Range("B22:AR23").Select
ActiveSheet.PasteSpecial xlPasteValues

Answer 2

您可以直接将范围从一张纸复制并粘贴到另一张纸上，请查看以下代码：

Sub try()

Worksheets("Sheet1").Range("B15:B25").Copy

Worksheets("Sheet2").Range("B15:B25").PasteSpecial xlPasteValues
Application.CutCopyMode = False

End Sub

以上代码仅适用于复制粘贴，您剩余的代码不包含在此内。

复制单元格值（不是单元格公式）

2 个答案: