Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 3788|回复: 3

[已解决]用vba实现批量复制

[复制链接]
发表于 2013-3-18 20:08 | 显示全部楼层 |阅读模式
5学分
请教哪位高人指点,赐我一段vba代码,可以同时把几个不同位置单元格里的值复制到另外几个对应位置中去。如:a1、b2、c3三个格子里的内容复制到k4、m5、o3中去。但由于a1、b2、c3里放的不仅仅是数值,而是由公式得出的值,所以这个复制还需是复制数值,不要把整个公式给复过去。我的真实例子是一次复制很多对象,所以希望用一个宏就搞定。

拜托大家,坐等高人解难!
最佳答案
2013-3-18 20:08
刚把O3打成OE了,上面的代码已经改好了。
  1. Sub 复制()
  2.     Dim arr1, arr2
  3.     arr1 = Array("a1", "b2", "c3")
  4.     arr2 = Array("k4", "m5", "o3")
  5.     Dim i As Integer
  6.     For i = LBound(arr1) To UBound(arr1)
  7.         Range(arr2(i)).Value = Range(arr1(i)).Value
  8.     Next
  9.     MsgBox "复制完成"
  10. End Sub
复制代码

最佳答案

查看完整内容

刚把O3打成OE了,上面的代码已经改好了。
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2013-3-18 20:08 | 显示全部楼层    本楼为最佳答案   
刚把O3打成OE了,上面的代码已经改好了。
  1. Sub 复制()
  2.     Dim arr1, arr2
  3.     arr1 = Array("a1", "b2", "c3")
  4.     arr2 = Array("k4", "m5", "o3")
  5.     Dim i As Integer
  6.     For i = LBound(arr1) To UBound(arr1)
  7.         Range(arr2(i)).Value = Range(arr1(i)).Value
  8.     Next
  9.     MsgBox "复制完成"
  10. End Sub
复制代码
回复

使用道具 举报

发表于 2013-3-18 20:14 | 显示全部楼层
本帖最后由 hwc2ycy 于 2013-3-18 20:15 编辑
  1. Sub 复制()
  2.     Dim arr1, arr2
  3.     arr1 = Array("a1", "b2", "c3")
  4.     arr2 = Array("k4", "m5", "o3")
  5.     Dim i As Integer
  6.     For i = LBound(arr1) To UBound(arr1)
  7.         Range(arr2(i)).Value = Range(arr1(i)).Value
  8.     Next
  9. End Sub
复制代码

评分

参与人数 1 +1 收起 理由
shiyajun + 1 很给力!

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2013-3-18 21:24 | 显示全部楼层
很感谢你,把困扰我好久的问题一下解决了。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 09:03 , Processed in 0.371053 second(s), 13 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表