09月22日, 2014 80次
为如下宏创建一个快捷键、或加一个工具栏图标，需要时，先Copy一下源数据，再选择好目标位置后，执行之，即可！Sub 选择性粘贴宏_加() On Error GoTo ErrorHandler Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks _ :=False, Transpose:=False Exit SubErrorHandler: MsgBox "选择性粘贴性失败，请先在Excel中Copy再执行本功能", vbOKOnly + vbCritical, "选择性粘贴"End Sub有疑问，请Hi我或给我发百度消息GoodLuck!另外,虚机团上产品团购,超级便宜
给你一个建议，不要随便用【宏】这种东西，因为没有几个人能真正用好这个功能，即使是一个高手都不敢说他的宏用得很好，可以用其他方法实现的，就尽量不要用【宏】这种无法驾驭的方法去做。
Sub 选择性粘贴() Set rng1 = Application.InputBox("请使用鼠标选择【复制】区域：", , , , , , , 8) Set rng2 = Application.InputBox("请使用鼠标选择【粘贴】区域的首个单元格：", , , , , , , 8) rng1.Copy rng2.PasteSpecial Paste:=xlValuesEnd Sub 追问 有没有只执行选择性粘贴-数值-确定 这个过程的代码 追答 Sub 选择性粘贴() Range("a1:d5").Copy [h2].PasteSpecial Paste:=xlValuesEnd Sub以上代码将A1:D5区域中的数据香气并选择性粘贴到以H2单元格为开头的H2:K6区域中。真没想到你还喜欢干点麻烦事儿。早知这样，要省去我不少麻烦！
选择性粘贴----选择“粘贴链接”选项~~~ 追问 对呀，我就是这么选的呀，我上面的问题不也是这么说的吗？我要解决的是：每当隔了一段时间，比如半个月，再打开就乱掉了，不能具体对某一个链接图表对象，而是对应到整个工作簿的问题。 本回答被提问者采纳
Rows("5:6").CopyRows("7:" & Range("A65536").End(xlUp).Row).PasteSpecial Paste:=xlPasteFormatsApplication.CutCopyMode = xlCopy 追问 这个代码是自动选择有内容的么？。为什么出来后会多出来好多页的空白的。。？出来很多的空白行出来很多的空白行出来很多的空白行出来很多的空白行 追答 那就要看你的文档了，代码会找到A列的最后有数据的那一行。如果，你的文档的A列在下面有东西，就会产生空白行。你可以把文档发到腾讯号码谐音【一丝霸气三思柳闪闪舞】油箱，我帮你检查下 本回答由提问者推荐
不是很明白楼主的意思，应该录制宏一下就好了 更多追问追答 追问 因为全部是两个单元格合并的 现在需要序号1为标准，行高，字体字号什么的复制序号1（也就是5-6两行）然后自动选中剩下的所有有内容的行选择性粘贴，格式，不知道明白没有，，录制宏我试了，但是看不懂而且不会自动选择有内容的行，只能设置多少行多少行 追答 其实你是全都要复制，只不过序号1这部分直接ctrl+V，而其他有内容的行选择性粘贴？ 追问 意思是复制5，6两行。选中从第7行到最后有内容的一行右键选择性粘贴，然后选格式。
http://zhidao.baidu.com/question/334723442.html1.点左上角ppt的圆花图标。2.点“准备”3.鼠标移过去，一直移到最下面，你可以看到“编辑指向文件的链接”，点击打开。4.可以看到PPT中所有的链接。5.选中这些链接，点“断开链接”就可以了
直接把图表复制到PPT里，不就OK了吗 追问 我做月报，要PPT链接Excel数据，每个月自动更新 追答 好像不太好做，你再找找看。一个月做一次也不是很多啦，手工做也用不了多少时间
你把所用内容先粘贴到文本文件里，编辑好后再复制到PPT里来。