[已解决]粘贴不带公式的数值

米特峰

问题：想把A2：E2的“值”粘贴到H列最下非空单元格的下一格，结果不带公式，直接显示“值”

1. Sub 粘贴不带公式的数值()
   
2. Range("A2:E2").Copy Range("H" & Range("H1048576").End(xlUp).Row + 1)
   
3. End Sub

复制代码

321.zip (17.4 KB, 下载次数: 5)

2014-11-26 14:43 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

zyouong

2014-11-26 15:03

321.rar (15.84 KB, 下载次数: 13)

2014-11-26 15:03 上传

点击文件名下载附件

跳转到最佳答案楼层

zyouong

321.rar (15.84 KB, 下载次数: 13)

2014-11-26 15:03 上传

点击文件名下载附件

米特峰

1. Sub Macro2()
   
2. i = Range("H1048576").End(xlUp).Row + 1
   
3.     Range("A2:E2").Select
   
4.     Selection.Copy
   
5.     Cells(i, 8).Select    '8就是第8列，H的列数
   
6.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
   
7.         :=False, Transpose:=False
   
8. End Sub

复制代码