ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

[求助] 怎样批量插入复制单元格

[复制链接]

TA的精华主题

TA的得分主题

发表于 2011-8-10 10:52 | 显示全部楼层 |阅读模式
帮客户做一个表格,类似给工厂员工计件,人员名单都有了,几百人,现要在每个人名下面插入几行,统计每天工作的内容,比如做小碗多少,盘子多少,碟子多少等等,就像下面图片显示的
    现有的人员名单:
1.jpg

       我想在里面加的内容(红色框内显示的):
2.jpg

      想要的最终效果:
3.jpg    

     我现在头疼的是第二步,要在每一个人名下面都加入那几行,如果用复制----插入复制单元格,只能复制一次粘贴一下,再复制再粘贴,不能连续粘贴,而且几百个人名,每个都有要如此,等全部完成估计我手都要抽筋了,现在就想问一下,有没有什么公式什么的可以批量处理?有高手吗,请赐教,在线等。。。

TA的精华主题

TA的得分主题

发表于 2011-8-10 11:34 | 显示全部楼层
请楼主看一看,是不是这样的意思?
PP.gif

TA的精华主题

TA的得分主题

 楼主| 发表于 2011-8-10 13:52 | 显示全部楼层

回复 2楼 MicrosoftEH 的帖子

是呢是呢,这是怎么做到的呢?

TA的精华主题

TA的得分主题

发表于 2011-8-10 13:59 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
原帖由 嫚儿 于 2011-8-10 13:52 发表
是呢是呢,这是怎么做到的呢?

序号、姓名、所在单位共用一个公式,右拉、下拉复制
工作内容直接下拉复制就可以了

TA的精华主题

TA的得分主题

 楼主| 发表于 2011-8-10 14:14 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

回复 4楼 MicrosoftEH 的帖子

我知道是运用公式的,只是不知道那个公式是什么意思,不能灵活运用,比如我举这个例子是工作内容加了5项(碗盘之类),实际我的要用加的是8项,要改公式里的哪个地方呢?

TA的精华主题

TA的得分主题

 楼主| 发表于 2011-8-10 14:25 | 显示全部楼层

回复 4楼 MicrosoftEH 的帖子

我搞定了,谢谢高手。
是不是运用了这个公式,前面的序号,姓名,所在车间这些只能跟后面重复放在一个表里,不能删除了,是吧。
不过无所谓,在着就在着吧,不碍事。
真的很感谢你,谢谢谢谢!

TA的精华主题

TA的得分主题

发表于 2011-8-10 14:46 | 显示全部楼层
原帖由 嫚儿 于 2011-8-10 14:25 发表
我搞定了,谢谢高手。
是不是运用了这个公式,前面的序号,姓名,所在车间这些只能跟后面重复放在一个表里,不能删除了,是吧。
不过无所谓,在着就在着吧,不碍事。
真的很感谢你,谢谢谢谢!


用公式得到结果之后,将这些结果再复制--选择性粘贴为数值,这样这些结果就与原来 的序号、姓名、所在车间没有关系了,原来的就可以删除了
序号第一个单元格的公式=IF(MOD(ROW(A1)-1,6)=0,OFFSET(B$3,(ROW(A1)-1)/5,),"")
根据需要修改公式中红色的数值即可

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2011-8-10 14:47 | 显示全部楼层

回复 4楼 MicrosoftEH 的帖子

还是不行,出现了个大问题,我按照你的那个公式,我需要加8项内容就把它改成:
=IF(MOD(ROW(A1)-1,8)=0,OFFSET(B$3,(ROW(A1)-1/7,),"")
然后我按拖拉向下复制,原名单里面第8个人名行,第16个,第24,……以此类推,貌似所有8的倍数行都没复制上直接从7就跳到9,从15直接跳到17
问题出在哪儿呢?

TA的精华主题

TA的得分主题

发表于 2011-8-10 14:59 | 显示全部楼层
原帖由 嫚儿 于 2011-8-10 14:47 发表
还是不行,出现了个大问题,我按照你的那个公式,我需要加8项内容就把它改成:
=IF(MOD(ROW(A1)-1,8)=0,OFFSET(B$3,(ROW(A1)-1/7,),"")
然后我按拖拉向下复制,原名单里面第8个人名行,第16个,第24,……以此类推 ...

你的公式有一点小问题,应该是这样=IF(MOD(ROW(A1)-1,8)=0,OFFSET(B$3,(ROW(A1)-1)/7,),"")
看一看结果吧

Book1.rar

3.53 KB, 下载次数: 137

TA的精华主题

TA的得分主题

 楼主| 发表于 2011-8-10 15:17 | 显示全部楼层

回复 9楼 MicrosoftEH 的帖子

嗯,我再试下,一会给你汇报结果
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-5-6 20:05 , Processed in 0.037258 second(s), 12 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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