[已解决]选择性粘贴成格式和值

luowangxx

大侠，帮我看看，选择性粘贴成格式和值，不要把公式粘贴下去，代码怎么写，谢谢！！


选择性粘贴.rar (10.43 KB, 下载次数: 2)

2015-5-7 12:27 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

grf1973

2015-5-7 13:30

1. Sub 宏1()
   
2.     Range("A4:E4").Select
   
3.     Selection.Copy
   
4.     Cells([a65536].End(3).Row + 1, 1).Select
   
5.     Selection.PasteSpecial Paste:=xlPasteFormats
   
6.     Selection.PasteSpecial Paste:=xlPasteValues
   
7. End Sub
   

复制代码

跳转到最佳答案楼层

grf1973

1. Sub 宏1()
   
2.     Range("A4:E4").Select
   
3.     Selection.Copy
   
4.     Cells([a65536].End(3).Row + 1, 1).Select
   
5.     Selection.PasteSpecial Paste:=xlPasteFormats
   
6.     Selection.PasteSpecial Paste:=xlPasteValues
   
7. End Sub
   

复制代码