VBA 复制粘贴值，而不是公式_百灵雀

http://blog.sina.com.cn/u/1750159505

首页博文目录关于我

个人资料

微博

加好友发纸条

写留言加关注

博客等级：
博客积分：

博客访问：
关注人气：
获赠金笔：0支
赠出金笔：0支
荣誉徽章：

正文字体大小：大中小

VBA 复制粘贴值，而不是公式

(2012-03-31 16:55:21)

标签：

杂谈

分类： VBA

Sub rangecopy()
'
' 拷贝区域
'
' 快捷键: Ctrl+w
For i = 1 To 14
    Range(Cells(4 + (i - 1) * 3, 3), Cells(4 + (i - 1) * 3, 15)).Select
    Selection.Copy
    Cells(i + 1, 18).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Next i
End Sub

注：' 快捷键: Ctrl+w 这样可以设置快捷键哦~

' 拷贝区域为了说明这段程序是干嘛的

Sub rangecopy()给这段程序一个名字，可以在宏--查看宏里面找到rangecopy这个名字哦~

阅读┊ 收藏 ┊ 喜欢 ▼ ┊打印┊举报/Report

前一篇：R 删除保存的工作空间快速启动R

后一篇：VBA 提取表名文件夹遍历

新浪BLOG意见反馈留言板　欢迎批评指正