ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 864|回复: 3

[求助] 是否可以自动复制几列数据到另一张表格,同时实现部分列表自动填充

[复制链接]

TA的精华主题

TA的得分主题

发表于 2020-2-27 01:18 | 显示全部楼层 |阅读模式
本帖最后由 dmargon 于 2020-2-27 17:07 编辑

新手,不不不完全小白求助
有一份表格, 因为是对应不同地区的,所以之前都是做一份,比如美国版文件,然后再人工复制到加拿大,英国版里去。
每个表格虽然内容大同小异,但是略有不同。比如美国版里东西最多,加拿大和英国版里部分列是不需要的。
是否可以通过VBA实现自动复制功能?

所有数据再 “Template” 表中


可否做到以下步骤?
(所有 数据是从第4行开始的,前3行不能复制过去,第4行开始有数据,但是不一定每一列都有数据,有些列是空白的,具体行数不固定)
  • 复制美国.xlsm B-G列,有数据的行,黏贴到加拿大.xlsm B-G列
  • 复制美国.xlsm I-AA列,有数据的行,黏贴到加拿大.xlsm I-AD列
  • 复制美国.xlsm AL列,黏贴到加拿大.xlsm AE列
  • 复制美国.xlsm AN-BO列,黏贴到加拿大.xlsm  AG-BH列
  • 填充加拿大.xlsm A列和H列,前几行本身有数据(都一样),复制黏贴到其它所有带数据的行
  • 自动替换表格里,I列和D列,AW列的值,这段我刚搜索,似乎有点谱了,我用的以下代码,这样弄可以吗?

(另外问下,非常白痴的问题,这上面列举的文件名,都是泛指的,实际操作的时候,比如文件名后面肯定还会有具体日期编号,比如美国20200227,加拿大20200227,需要保持文件名不动吗?)

  1. Sub 批量替换()
  2. '
  3. ' 批量替换 宏
  4. '
  5. ' 快捷键: Ctrl+shift+r
  6. '
  7.     Range("I4:I500").Select
  8.     Selection.Replace What:="9.99", Replacement:="7.99"
  9.     Selection.Replace What:="11.49", Replacement:="8.99"
  10.     Selection.Replace What:="11.9", Replacement:="9.5"
  11.     Selection.Replace What:="13.5", Replacement:="10.5"
  12.     Selection.Replace What:="12.9", Replacement:="10.5"
  13.     Selection.Replace What:="14.5", Replacement:="11.5"
  14.     Selection.Replace What:="14.9", Replacement:="11.9"
  15.     Selection.Replace What:="16.5", Replacement:="12.9"
  16.     Selection.Replace What:="15.9", Replacement:="12.5"
  17.     Selection.Replace What:="17.5", Replacement:="13.9"
  18.     Selection.Replace What:="16.9", Replacement:="13.5"
  19.     Selection.Replace What:="18.5", Replacement:="14.5"
  20.    
  21.     Range("D4:D500").Select
  22.     Selection.Replace What:="8.3x11.7 A4", Replacement:="A4 21x29cm"
  23.     Selection.Replace What:="11.7x12.9 A3", Replacement:="A3 29x42cm"
  24.    
  25.     Range("AF4:AM500").Select
  26.     Selection.Replace What:="OZ", Replacement:="GR"
  27.     Selection.Replace What:="4", Replacement:="120"
  28.     Selection.Replace What:="0.7", Replacement:="20"
  29.     Selection.Replace What:="1.2", Replacement:="35"
  30.     Selection.Replace What:="0.02", Replacement:="0.5"
  31.     Selection.Replace What:="11.7", Replacement:="29.7"
  32.     Selection.Replace What:="8.3", Replacement:="21"
  33.     Selection.Replace What:="12.9", Replacement:="42"
  34.     Selection.Replace What:="IN", Replacement:="MM"
  35. End Sub
复制代码

我第一次用是CELLS.REPLACE代码,后来不知道该怎么加定位,就换成上面了,请问这两种有什么区别吗?
  1. Cells.Replace What:="9.99", Replacement:="7.99", LookAt:=xlPart, SearchOrder _
  2.         :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
复制代码




跪谢大神,这些表格一天到晚做,都是人工,看的头昏眼花,而且电脑也不太行,经常缓不过来。



Test.zip

1.88 MB, 下载次数: 1

TA的精华主题

TA的得分主题

发表于 2020-2-27 08:31 来自手机 | 显示全部楼层
不一定是电脑不行,好的表达方式也很重要,上压缩附件模拟结果更重要!

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-2-27 16:42 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
IVYQQQQQ 发表于 2020-2-27 08:31
不一定是电脑不行,好的表达方式也很重要,上压缩附件模拟结果更重要!

嗯。附件已经上传了。谢谢。

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-2-28 19:14 | 显示全部楼层
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 01:24 , Processed in 0.041984 second(s), 10 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

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