2014-09-22 173 views
0

我只是需要帮助才能正确使用它。 当我复制宏拷贝全部(包括公式),我想要的只是复制值。 任何人都可以帮忙吗?复制单元格值(不是单元格公式)

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 

回答

0

可能是试试这个:

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

您可以直接复制并从一个表到其他粘贴范围内,请检查下面的代码:

Sub try() 

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

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

End Sub 

这上面的代码是唯一对于复制粘贴,您剩余的代码不包含在此中。

相关问题