前景提要(文末提供源码下载)
word的邮件合并功能,相信大家都非常的熟悉了,一些固定模板的批量打印功能都会用到这样的操作,但是很多时候我们的数据是Excel中的,那么我们是否能够在Excel中实现类似于word中这种邮件合并的功能呢?
代码区
其实这样的话,就有点类似于我们之前学过的Excel的数据汇总的逆推,数据的拆分了,按照计划,我们很快就会接触到更多类型的数据的拆分了,我们这里就先热个场,提前接触下数据的拆分,之所以在这里说数据拆分,主要还是因为他的操作也类似于在多个工作表中同时进行数据填充,和我们之前的内容又有一点关系,所以正好有承上启下的作用
来看看我们的场景
现在我们手上的这个工作表里面有两个表,一个就是成绩总表,一个就是模板,类似于我们通知的模板,
我们现在需要将总成绩的表中所有的同学的成绩按照模板中指定的样式进行填充,并且形成一个人一个工作表的样式来进行打印,并交给学生查看。如果手动复制粘贴,这个工作量就非常的大了,因为不仅仅是复制粘贴,还要找到正确的位置,所以这里我们需要使用VBA来帮助我们实现这样的功能。
Sub sssss()Dim rng As Range, sth As Worksheet, sthn As WorksheetSet rng = Application.InputBox("请选择数据源,不含表头", "数据源的确定", , , , , , 8)For i = 1 To rng.Rows.Count arr = rng.Rows(i) Worksheets("模板").Copy after:=Worksheets(Worksheets.Count) ActiveSheet.Name = arr(1, 1) Set sthn = ActiveSheet sthn.Cells(4, 3) = arr(1, 1) sthn.Cells(4, 5) = arr(1, 2) sthn.Cells(6, 4) = i sthn.Cells(8, 4) = arr(1, 3) sthn.Cells(9, 4) = arr(1, 4) sthn.Cells(10, 4) = arr(1, 5) sthn.Cells(11, 4) = arr(1, 6) sthn.Cells(12, 4) = arr(1, 7) sthn.Cells(13, 4) = arr(1, 8)Next iEnd Sub
看着代码挺长,请示非常的简单,中间一大段都是理解之后就非常的简单了。
先来看下效果
首先我们需要选择好数据源的范围,这里的数据源我的设计是不含表头的,因为在这里表头并没有任何的用处,我们可以根据实际的需要进行调整数据的位置
确定了数据源的范围之后,程序就可以开始运作了,我们来看看最终的结果
我们选择最后一个A22的成绩来对比下,看看是否正确
完全是没有问题的,非常的完美。
代码分析
虽然说今天的代码比较的长,但是理解之后就会觉得非常的简单,我们来看看代码的操作流程
Set rng = Application.InputBox("请选择数据源,不含表头", "数据源的确定", , , , , , 8)
首先我们确定数据源的范围,这里前面也说明了不需要选择表头,大家可能比较的疑惑,不是应该对着表头来填入数据嘛
我们来看看模板终端这些字段,我们都能够在内容中找到数据源中找到具体的位置,并且格式都是固定的,这个时候我们反而不需要那么麻烦去通过表头来选择,直接通过固定的位置来选择反而更加的快,而且代码简单
然后我们将数据源的每一行,装入数组中,这样每一行都是一个数组,我们只需要将数组中的内容填入新建的工作表中对应的位置就可以了。
可以看出来,数组中每个元素的顺序正好就是每一行数据的顺序,我们有了这个顺序之后就可以根据字段在模板中的位置,来进行一一对应了。
姓名是在模板中的cells(4,3)的位置,而姓名在数组中是第一个,所以是arr(1,1)
最终结果就是
sthn.Cells(4, 3) = arr(1, 1)
其他的都是按照这个标准依次类推,就算是这个过程中出现了某些字段没有按照这个顺序来的,也不要紧,我们直接在代码中进行更改就可以了。 更成对应的位置
假设我们这里讲化学和物流的位置更换下
我们也仅仅是需要更换下代码中的顺序就可以了
=======================================================
本节课的案例源码已经上传,需要的小伙伴后台私信“7-47-05”,希望大家多支持~~,多多关注 ~ ~
好了,明晚19:00,准时再见!
word和Excel邮件合并(如何在Excel中实现word的邮件合并功能)
2024-11-06 01:07:14 作者:那伤依存 网址:https://m.xinb2b.cn/life/sij275227.html
- 生僻字歌词带拼音完整版(生僻字歌词拼音)
- 2024-11-06生僻字歌词拼音我们中国的汉字落笔成画留下五千年的历史让世界都认识我们中国的汉字一撇一捺都是故事跪举火把虔诚像道光四方田地落谷成仓古人象形声意辨恶良báxiāokuíjìchīmèiwǎngliǎng魃魈魁鬾魑魅魍魉。
- 平平无奇的恋爱小天才萧亚轩(恋爱小天才萧亚轩)
- 2024-11-06恋爱小天才萧亚轩恋爱小天才萧亚轩,一改往日御姐范,与男友互动少女心十足有着“亚洲舞后”之称的萧亚轩在最近又大火了一把,并不是她推出了什么新专辑或者是有什么新作品,而是因为她的新恋情又再一次另大众羡慕得五体投地与她相差。
- 结婚25年感言简短(结婚25年感言集锦)
- 2024-11-06结婚25年感言集锦回首二十五年婚姻路,平平淡淡且艰辛不易,其间经历了不少风风雨雨、磕磕碰碰二十五年,有过争吵,有过埋怨,有过伤心,有过眼泪,有过失望,唯独没有后悔也走了不少常人没有走过的坎坷路,但这一切终究都是雨过天晴。
- 干萝卜丝炒粉条的做法(萝卜丝炒粉条的做法)
- 2024-11-06萝卜丝炒粉条的做法做法步骤1、萝卜切丝,五花肉切小丁,木耳切丝,姜丝辣椒段备好;2、热锅热油煸萝卜丝出水汽后盛出备用;3、底油煸五花肉出油脂放姜丝辣椒段,烹料酒;4、加适量水,放入粉条、木耳丝,调盐、糖、酱油;5、将萝。
- 棹字怎么读(棹字如何读)
- 2024-11-06棹字如何读棹拼音:【zhào,zhuō】形声字从木从卓,卓亦声“卓”意为“高”“木”与“卓”联合起来表示“撑杆”本义:船用撑杆引申义:长的船桨组词:棹歌字形结构繁体字:櫂汉字首尾分解:木卓汉字部件分解:木卓笔顺。
- 酸菜鱼怎么做胖头鱼的做法讲解(酸菜鱼胖头鱼的做法)
- 2024-11-06酸菜鱼胖头鱼的做法食材:胖头鱼1条、酸菜鱼火锅底料1包、豆腐2块、葱姜蒜适量、盐适量、食用油50克、花椒粒适量、黑胡椒粒适量、干辣椒若干、青椒2个、红椒1个、白砂糖10克;选一条大一点的胖头鱼,清洗干净,沥干水分锅中倒。
- 简阳市云龙职高(简阳职高怦然新)
- 2024-11-06简阳职高怦然新为进一步推动学校校园文化建设,丰富学生的课余文化生活,促进学生个性发展10月13日下午,四川省简阳市高级职业中学学生会和各大社团提前就位,为即将到来的招新活动做好充分准备2022级新生社团招新在韩舞、。
- 杨紫在演唱会和王俊凯打招呼 杨紫不再唱小邋遢
- 2024-11-06杨紫在演唱会和王俊凯打招呼 杨紫不再唱小邋遢杨紫一直自诩“杨文静”,但每次的表现都离这个方向越来越远在8月30日晚播出的某综艺节目中,杨紫的才艺展示不再是固定节目《小邋遢》,跳起了锁舞,只是狂野的画风也让“杨文静”也更远了一步在节目中,因为要给。
- 倩女幽魂手游的月卡能不能叠加的(倩女手游能不能到15套双绝)
- 2024-11-06倩女手游能不能到15套双绝原创:芸芸木兮芸芸木兮玩倩女的小伙伴们但看到别人发蓝光发黄光,是不是特别·羡慕好多小伙伴多是佛系玩家很少有人去冲钱去弄装备,和去买绝技但是还是有好多的土豪玩家,充了好多钱也没有到15套和双绝小编就发了。
- 用什么养古玉最好(陪你养玉第68讲古玉收藏之净与熟的鉴定)
- 2024-11-06陪你养玉第68讲古玉收藏之净与熟的鉴定大家晚上好,现在开始我们今天的玉器交流,今晚我们一起来学习一下鉴定古玉的几个方法首先,古玉呈现给我们的,一定是净,也就是说,不管入土多长时间,出土古玉一定是干净的,即使有土壳,也不会乱糟糟的而那些。
- 65岁吕良伟活成40岁的样子(都在惊讶63岁的吕良伟永葆青春的秘密)
- 2024-11-06都在惊讶63岁的吕良伟永葆青春的秘密前几天看了《吐槽大会》请了甄子丹来,说是真吐槽,其实说的也是不疼不痒,不过丸子倒是被一个小伙子吓一跳,本以为是个小伙子,结果都到了做爷爷的年龄,这位“小伙子”就是吕良伟我的妈呀,张绍刚吐槽他63岁了,。
- 怎样才能既能减肥又能长高(如何能做到快速长高)
- 2024-11-06如何能做到快速长高快速长高应该要补充身体需要的多种微量元素,应该要多吃钙含量较高的食物,平时经常跳绳可以起到增高的作用,而且可以起到减肥瘦腿的作用,下面我们具体来了解一下,如何能做到快速长高,减肥又瘦腿拉韧带:坐在床上。