EXCEL批量导入图片
高效如风 Excel表格批量导入图片
高效如风 Excel表格批量导入图片作者：平淡来源：《电脑爱好者》2018年第04期如果需要插入的图片不多，可以使用手动的方法快速插入。
先在Excel中输入员工姓名数据，点击“插入→图片→来自文件”，插入一张和员工对应的照片到B2。
调整B2的大小和照片大小一致（可以略微大一些）。
接着全选数据行列，使用鼠标调整行列数值，使得B列所有单元格都能够放置图片。
定位到B2，点击“插入→图片”，然后按住Ctrl键选中需要插入的图片（选择图片的顺序要和姓名列员工的顺序一致），这样所有图片都可以插入到表格中。
选中最后一张插入的照片，将其移动到对应的B列位置。
按住Ctrl+A全选照片，点击“图片工具→格式→组合”，依次进行“左对齐”和“纵向分布”即可（图1）。
如果需要插入的图片很多，那么还可以借助VBA脚本快速实现。
首先将照片名称更改为与A列中的员工姓名一一对应。
接着点击“开发工具→VB”。
在打开的窗口输入如下代码（代码解释见语句之后半角单引号后的注释）：Sub 批量插入图片（）Dim cfan As String ’设置一个名为cfan字符串，将其作为图片路径变量Dim rng As RangeSheets（"SHeet1"）.Select ’选中要插入图片的工作表x = [a65536].End（xlUp）.Row ’取得最后一行的行号For i = 2 To xna = Cells（i， 1）’从第1列（即A列）得到图片名称，并以此名查找指定位置的图片cfan = "e：＼员工照片" & "＼" & na &".png" ’指定图片实际保存位置和格式If Dir（cfan） "" ThenCells（i， 2）.Select ’图片需要插入到第2列ActiveSheet.Pictures.Insert（cfan）. SelectSet rng = Cells（i， 2）’根据单元格的大小调整图片With Selection.Top = rng.Top + 1.Left = rng.Left + 1.Width = rng.Width - 1.Height = rng.Height - 1End WithEnd IfNextEnd Sub这样，在Excel中会新增一个名为“批量插入图片”的宏，按提示运行这个宏，即可将所有照片按照员工名称插入到B列对应的单元格中（图2）。
批量插入100张图片，我只需5秒钟！
批量插入100张图片，我只需5秒钟！
关键字：批量插入；excel教程；图片
栏目：小技巧
全文370字，预计1.5分钟读完
哈喽，大家好呀！
每天一个Excel视频小技巧，excel水平蒸蒸日上~
今天教大家如何批量插入图片。
照例，先上一个柳之老师给大家录制的小视频：
不方便查看视频的同学，这里还有图文讲解版。
如图所示，我们想要在图片那一列，批量插入图片。
首先，我们在D2单元格输入公式=C2，回车。
然后，鼠标放到单元格右下处，当出现+字图标时，双击鼠标，填充公式，得到下图的效果。
下面，我们点开这个批量插入图片的小工具，其实就是一个VBA 代码制作的小按钮。
然后，选择图片所在的文件夹，找到我们的文具图片，然后确定。
选择需要插入图片的区域，我们选择图片列的第一个单元格，然后按住Ctrl+Shift+↓，全选，点击确定。
好啦，大家可以看到，我们的图片就已经批量插入到我们的Excel 表中。
另，视频中还有为何要在图片列输入图片名称的解释。
感兴趣的同学可以自行去视频中进行查看哟！
对了，之前还给大家讲过如何批量获取文件夹下的文件名。
视频在此。
好啦，以上就是今天的所有内容啦！。
三分钟学会excel批量插入图片
三分钟学会excel批量插入图片有位朋友咨询如何根据条件在excel表格中指定位置插入图片。
这节课给大家分享插入图片的技巧。
案例分析：要求在G列输入产品名称后，在a~f列插入对应图片。
有可能一个名称对应几张照片1和2等等......主要知识点：Addpicture函数照片文件夹：实现代码：难点在于模糊匹配的实现有点难度。
否则代码不会这么长。
Sub 写入照片()Application.ScreenUpdating = FalseDim arr(), brr()For Each shap In Sheet1.ShapesIf shap.Type <> 8 Then shap.DeleteNext shapBname = Dir(ThisWorkbook.Path & "\图库\" & "*.jpg") '图片路径Do While Len(Bname) <> 0k = k + 1ReDim Preserve arr(1 To k)arr(k) = Left(Bname, Len(Bname) - 4) '将图片名写入数组Bname = DirLoopFor Each rg In Range([g2], Cells(Rows.Count, "g"))If rg.Value <> "" Then '如果单元格不为空，则做循环a = 0For i = 1 To UBound(arr) '对每个图片名做循环If arr(i) Like rg.Value & "*" Then '如果单元格的值在图片名的数组中能够找到类似的，则将满足条件的图片名arr写入新的数组a = a + 1flname = ThisWorkbook.Path & "\图库\" & arr(i) & ".jpg"Set rg1 = Cells(rg.Row, a)rg1.RowHeight = 100 '初期设定单元格高和宽rg1.ColumnWidth = 20Sheet1.Shapes.AddPicture flname, True, True, rg1.Left, rg1.Top, rg1.Width,rg1.Height'插入图片，核心语句ElseEnd IfNextElseEnd IfNextApplication.ScreenUpdating = TrueEnd Sub效果：。
电子表格批量插入图片
电子表格批量插入图片准备工作：1.整理好所插入的图片：具体批量插入图片操作：步骤一：写入图片路径，做到单元格中图片名称和插入的位置相对应。
具体进行如下操作：1.在图片插入位置写入图片定位公式：="<table><img src=""图片在计算机上面的路径\"&对应图片的单元格名称&".jpg"">"（注意：需要在内容输入位置输入公式（不要在单元格内直接输入公式），公式输入结束后按回车结束公式输入操作。
注意公式的标点符号为英文格式。
将公式写入到图片插入位置单元格后会看到实际表现出来的内容并不是我们所写入的，而是这个=“”之内的内容。
）2.完成第一个位置定位之后，下拉单元格，通过下拉自动填充完成整列的图片定位公式的写入。
步骤一例子：="<table><img src=""D:\360安全浏览器下载\始祖鸟\"&A2&".jpg"">"步骤二：步骤二例子：选中所有公式，复制。
ctrl+C+C在复制状态下，删除b列复制的内容。
（如果你不需要再原有位置显示图片，可以不删除，这里删除只是为了给要引用进来的图片腾地方）删除后，在剪切板中点击之前复制出来的内容。
使用选择性粘贴，并选择"unicode文本"方式。
之后图片就会出现在每一个所对应的图片插入位置列中。
ps：1、图片在批量插入后，对存放图片的物理文件夹中再增加图片时，excel里即使有相应的引用也不会自动更新，除非手动刷新，重插。
2、在插入图片前，最好先调整好表格的宽度和行高。
太小的话，插入的图片会堆积在一起，数量大时，很难排版。
3、本操作是在excel2003中进行的，2010等版本没有测试。
Excel批量插入图片，分分钟插入几万张照片，这神技你不学学？
Excel批量插⼊图⽚，分分钟插⼊⼏万张照⽚，这神技你不学学？实际案例：
如下图所⽰，为某班学⽣档案表，⼈数很多，只列出4个⼈名作为⽰意，现在需要插⼊每个⼈的
2⼨照⽚。
所有的照⽚存放在了E盘，'3班学⽣照⽚'⽂件夹中，照⽚均是按照姓名命名，格式为jpg，如下
图，
解题思路：
插⼊学⽣照⽚，可以使⽤⼯具栏中的'插⼊图⽚'功能，但是每次只能插⼊⼀张，对于数据量很⼤
的表格来说，不可取。
我们可以使⽤HTML语⾔ Excel的选择性粘贴完成，选择性粘贴此处不做
赘述，HTML语⾔是啥玩意，我们也⽆需懂太多，只需要记住下⾯的调取图⽚的⼀句语法即
可，<table><img src='图⽚路径' width='*' height='*'>，img代表图⽚，src是图⽚的路径，width
和height分别规定图⽚的宽和⾼，单位为像素。
解题步骤：
（1）添加辅助列1，获取每个⼈的图⽚名称，公式如下，
（2）添加辅助列2，获取每个⼈照⽚的路径，如下图，
（3）添加辅助列3，获取每个⼈完整图⽚代码，如下图，
（4）将辅助列3中的代码复制，粘贴到txt⽂本中
（5）复制txt⽂本中的代码，选中D2单元格，选择性粘贴，选择Unicode⽂本，确定即可
然后照⽚就粘贴上了，可以根据照⽚⼤⼩调整单元格的⼤⼩。
总结笔记：
本次分享主要是学习Excel的批量处理、执⾏代码的思路，⾄于那句html代码可以死记住，或者
有个印象，后期⽤到了再查询就可以了
每⽇箴⾔：
⼈⽣的⾼度，⼀半始于个⼈的努⼒，⼀半源⾃众多的选择！。
教你如何在EXCEL批量导入图片
教你如何在EXCEL批量导入图片，单元格导入，绝对无误，亲自测试！2010年06月21日星期一 17:24在Excel中可以插入图片，基本的操作是插入/图片/来自文件，一两张还可以用这方法，要是把张三、李四、王二麻子的照片依次和人名对应上，可就是个大问题了。
今天我介绍一种另类批量插入图片的方法，这种方法插入图片较灵活，可以批量确定图片插入的位置，甚至可以随意陋行插入图片，以及在插入图片的同时确定图片大小、为插入的图片建立超链接等等。
第一步：打开需要插入图片的表格，默认图片保存在C盘根目录下，以姓名为图片名称。
第二步：在B2单元格输入公式="<table><img src=""c:\"&A2&".JPG"">"，向下复制公式至B5.第三步：选持B2：B5，按住Ctrl键的同时连续按两次C。
这样会将B2：B5之间的内容复制到粘贴板上并调出粘贴板，删除B2：B5的内容。
将粘贴板中的内容，粘贴至B2单元格。
第四步：在公式栏选择刚刚粘贴进来的文件，Ctrl+X剪切。
单击B2单元格，点击编辑/选择性粘贴/Unicode文本”，将刚才剪切的内容重新复制进B2单元格，文本变成了图片。
第五步：这样插入进来的图片都是原图片大小，需要将它们统一大小。
按F5功能键，调出定位对话框，点击定位条件/对象，此地所有图片都已经被选中，右击后，选择设置图片格式/大小，将高度设为2.12厘米，宽度设为1.72厘米。
这样批量插入的图片是按照公式的位置定位的，哪个单元格有公式，图片就插入到哪里。
实际上，公式产生的代码为<table><img src="c:\张三.jpg">。
这种方法在插入图片的同时甚至可以设定图片大小，代码为<table><img src="c:\张三.jpg" width=65 height=80>，意思是插入到图片在C盘根目录下的张三.jpg，按宽度65像素，高度80像素设置图片大小。
Excel怎么批量导入图片Excel批量导入图片教程
Excel怎么批量导入图片Excel批量导入图片教程
在Excel表格中要插入很多图片，但是一张一张的插入再一张张的排好位置实在是过于麻烦，那么有什么办法是可以快速批量导入图片的呢，下面就来教大家操作方法。
1、首先我们全选表格，调整表格的列宽行高。
2、然后点击【插入】-【图片】，将导入的图片全部选择插入进来。
3、接着在上方的图片设置栏中设置图片的大小宽度。
4、然后在最后一个单元中首先插入图片。
并再次选中所有图片，在【排列】栏中选择【对齐】-【左对齐】，这样所有的图片都会排列整齐。
5、最后一步再次点击【对齐】-【纵向分布】，如此一来，所有的图片都会规整的移动到自己的单元格中，无需你手动去一张一张的去拖动啦。
怎么样是不是非常的简单呢，小伙伴们快去试下哦，用了这样的方法，即使有上千张图片也难不倒你，半分钟即可搞定哦。
在EXCEL中批量插入图片
在EXCEL中批量插入图片1.生成图片文件列表1.1 DIR 文件路径和文件名 /O分类标识 >list.txt其中的文件名可以用通配符来灵活筛选想要的一类文件。
分类标识符有如下类型：N：按名称(字母顺序)S：按大小 (从小到大)E：按扩展名(字母顺序)D：按日期/时间(从早到晚)G：组目录优先- ：颠倒顺序的前缀。
后面的>list.txt表示把生成的列表输入到一个文本文件list.txt中，也可以是list.xls。
下面举例说明：DIR C:\MYDOC\*.* /OE >list.txt 表示将C:\MYDOC文件夹下的所有文件以扩展名分类输入到一个名为list.txt的文本文件中。
DIR C:\MYDOC\*.TXT /ON >list.txt 表示将C:\MYDOC文件夹下的所有以TXT为扩展名的文件按文件名称排列的列表写入到一个list.txt文件中。
DIR C:\MYDOC\*.TXT /O－N >list.txt 同上，只是显示的排列顺序与上面的一例相反。
本例中我直接在照片所在目录操作：把所有的jpg文件列表输出到EXCEL格式，也放在此目录：List.xls打开如下：再利用EXCEL的分列功能，将文件名提取出来：1.2. 还可以用ACDSEE等工具直接生成文件列表。
2. 在图片列表文件中导入图片2.1. 用Excel高级工具箱选中要导入照片的文件名“加载项”——“工具栏”，选中“批量导入图片”选中图片所在文件夹指定图片导入EXCEL后的高度Ok，导入后图片按文件名自动匹配，行高自适应。
3 什么时候用这个功能？。
excel2010 如何批量插入图片
如何在EXCEL2010中批量插入图片／并且图片与名字一一对应？
如下图：B列是图片的名字，C列是图形，要求插入超过500个图片。
1.首先将图片保存在已知路径下，例如E盘建了一个名为clong的文件夹，即：E:\clong
2.在C２单元格输入公式="<table><img src=""E:\clong\"&B2&".jpg"">"，
向下复制公式止C500列。
3.调出excel2010的剪贴板，home->点击clipboard（下图红色区域）。
4.选择C2:C500，按住ctrl+C，这样会将C2：C500之间的内容复制到粘贴板
上，点击一下粘贴板，就会将原有的C2:C500内容以文本的格式覆盖
C2:C500.此时 C2列的的公式就显示为："<table><img
src=""E:\clong\"XQM00VR_CH01ER TEMP
COMP_Tx_20140528_101433AM".jpg"">"
5．最后点击home->paste->paste special-> Unicode Text.就OK了。
然后就是调整图片大小，调整一下单元格大小，这个很easy。
注意：图片格式需要是.jpg.
-----豆豆笔，2014.5.29。
Excel2013如何批量插入图片
Excel2013如何批量插入图片有时遇到需要大量在excel中插入图片的情形，比如说为每行职工信息建立一个头像，通过记事本复制一行图片路径的代码，就可以快速达到目标。
下面店铺给大家分享Excel2013批量插入图片的方法，希望看完本教程的朋友都能学会并运用起来。
Excel2013批量插入图片的方法要让每一张图片插入到右侧excel表中，这些图片所在文件夹为“E:\Dota2EXCEL\Announcers”观察到excel中出现了id和图片的名字是相同的，我们复制多行id 数据到记事本中接下来我们在记事本中输入一条图片代码：，根据实际替换图片的绝对路径和图片名修改，将这段代码整体复制到目标列 #FormatImgID_2#达到我们想要的效果但是复制过去的图片不便修改，所以可以利用键盘“Ctrl+Z”撤销。
图片大小的修改通过记事本中进行，修改属性值调整款高达到满意的效果最后记得保存，或者快捷键Ctrl+S，保存后删除原图excel中是没有变化的，因为图片语句保存在excel中了。
excel2013常用的使用技巧技巧1：快速拆分“姓名”拆分“姓名”可以借助Excel 2013新增加的“快速填充”迅速完成，具体操作是，首先将光标定位到"姓"字段，手工输入一组正确的姓氏，然后用滑块自动填充整个字段。
接下来点击单元格右侧的自动填充钮，选择"快速填充"。
这时Excel就会感知这个规律，并将正确的姓氏提取出来。
同样操作，再提取出“名"字段即可。
当然这项功能还有很多用武之处，比如将一个标准日期(如“2012-11-6”)拆分为“年”、“月”、“日”。
图1 excel 2013办公技巧：快速拆分“姓名”技巧2：智能补全当有字段需要引用之前数据时，我们可以尝试手工输入一两条记录，正常情况下Excel 2013会智能感知你的操作，并依照规律自动进行内容补全。
当然为了避免曲解用户意图，此时的补全还仅仅是一条内容提示，只有当用户回车明确这一操作时，这里的内容才会真正进入单元格内。
工作表中批量插入同一文件夹下图片到单元格中并对准
工作表中批量插入同一文件夹下图片到单元格中并对准工作表中批量插入同一文件夹下图片到单元格中并对准8楼代码已经完全改变思路，效率更高更可靠。
本楼代码可以无视，仅作学习参考用。
Sub PicBatchIn()K = InputBox("请输入插入图片换行数，默认10张", "插入图片换行数", 10) '指定插入满10张图片后换行。
当然可以根据需要改成k=5或者k=20之类的。
If K = "" Then K = 1 '如果选择ESC退出输入对话框，则把k值设定为1，即在同一列中按行插入。
Dim r As Range: Set r = ActiveCell '指定当前单元格为开始插入图片的位置。
OpenFile = Application.GetOpenFilename("Picture Files(*.jpg),*.jpg", , "Get Picture from here!") '找到目标文件夹，并随便选取一张jpg图片。
'如果图片格式不是*.jpg，请修改代码，如同下面：'OpenFile = Application.GetOpenFilename("Picture Files(*.bmp),*.bmp", , "Get Picture from here!") '找到目标文件夹，并随便选取一张bmp图片。
If OpenFile = False Then Exit Sub '如果选择为空或ESC，则结果为错误退出此vba过程。
Application.ScreenUpdating = False '暂停屏幕刷新L = InStrRev(OpenFile, "\") '查找最后一个文件夹特定字符\myDir = Left(OpenFile, L) '抽取所选文件夹字符，如"D:\Documents\"P = Dir(myDir & "*.jpg") '用Dir命令寻找jpg图片。
如何在excel中批量导入图片
如何批量导入图片
1、先在电脑上下载软件“excel工具箱”；
2、下载后，打开excel会在菜单栏中显示“工具箱”,此时表明已下载成功；
3、批量导入图片到当前工作表，从当前单元格下一行开始，左边列存放文件名，右边列存放图片，如图片需插入到C4单元格，则应将鼠标定位于B3单元格中。
4、点击工具箱--导入图片，
出现功能界面：（图片显示大小可自行确定，一般选择“按单元格高度调整图片高度”，后点击“开始批量导入图片”）
5、批量选择需导入的图片后，点击“打开”，即可完成批量导入。
如果图片未先命名，可导入后再进行问题描述，如图：
若为WPS版本，第4步则有所不同，先点击菜单栏工具箱下的工具箱，
后会出现如下界面，再选择“批量导入图片”，后面就同上啦。
一招搞定excel中的图片问题——批量导入并调整图片的尺寸！
1、先整理好excel中的基本信息（员⼯姓名、性别、⼯号等），将证件照按员⼯姓名来命
3、然后再将⽂本⽂档中的内容全部复制粘贴到excel中，从证件照⼀列的第⼀⾏开始。
（右键单击“选择性粘贴”）
4、粘贴成功后，即完成图⽚导⼊，稍微调整⼀下excel的单元格⼤⼩，使得图⽚正常显⽰即可。
话说Excel的功能真的好强⼤，知道⼀些快捷的⽅法可以⼤⼤减少我们的重复性⼯作。
最近正在领导的半强迫下学习这项技能，在之后如果有⽤到觉得还不错的⽅法时，也会写出来和⼤家共享，虽然只是浅
显的技巧，excel的⽪⽑⽽已，但⾄少有了开始，也希望今天这篇短⼩⽽浅显的技术⽂能够帮到
你。
P了个S：发现⾃从毕业之后，学习的“⾦⼿指”只有在急需之时才会开启，O(∩_∩)O~~（因为迫切啊~）。
Excel批量插入照片，制作员工信息登记表全民学Excel
Excel批量插入照片，制作员工信息登记表全民学Excel准备工作1、首先，创建一个文件夹，然后把每个员工的照片全部放进去，当然，你肯定需要将照片命名为员工的姓名。
这里我把所有照片放到了【F:\图片】位置。
2、把表格制作好，我们最后插入照片。
操作步骤步骤一、以我的表格为例，我在E列中插入所有员工的照片。
先选中E2单元格，然后在编辑栏中输入代码：【='<table><img src=''f:\图片\' &B2 &'.jpg'' width=''70'' height=''88''>'】步骤二、输入完后，我们向下填充序列，拖满整个数据表格。
步骤三、新建一个记事本，将刚刚填充的E2以下的单元格数据全部复制到记事本中。
步骤四、将表格中E2以下单元格数据全部删除掉。
步骤五、复制记事本中所有数据，然后直接粘贴到E列中。
步骤六、依次选中有数据的这几行，将其整体调整高度。
好了，我们的员工信息登记表就这样完成了，是不是非常的简单呀！原理说明这段代码【='<table><img src=''f:\图片\' &B2 &'.jpg'' width=''70'' height=''88''>'】是网页中的一段代码，主要是调用图片位置以及设置图片的宽度和高度。
f:\图片\：表示图片所在盘符以及位置。
width：图片宽度height：图片高度&B2 &：这里表示连接到B2单元格数据。
（在本篇教程中起到了重大的作用，步骤二中我向下填充序列，这里的函数可以向下复制B 列下面的名称，以对应我们文件夹中照片的名字。
Excel如何批量插入图片？每一张图片还要和名单对应上？2分钟搞定
Excel如何批量插入图片？每一张图片还要和名单对应上？2分钟搞定临下班的时候老板加我打印一份名单，我想，不就是打印份名单吗？简单！然而！老板发来一个压缩包，说没有Excel名单，只有图片，图片的名字就是名单，名字要和图片一起打印出来，我看了一下压缩包，我的天！几百张！这要是没点技巧要打印到猴年马月啊？不过机智如我怎么会被打倒呢？想知道我怎么在2分钟内搞定的吗？快来学一学！一、Excel设置1、图片路径首先我们打开要打印的图片的文件夹，这里面就是我们要插进名单里的所有图片啦，在窗口上方有一个路径，复制它！2、新建查询功能然后打开Excel，点击【数据】——【新建查询】——【从文件】——【从文件夹】，这时候会弹出一个窗口，我们把复制的路径粘贴进去，点击确定，导进来之后图片的信息就会在我们的Excel里了。
3、删除多余列这时候我们要的名字已经被提取出来了，但是其他的信息我们不需要，所以删掉后面所有内容，但是名字后面还有后缀名怎么办？选中这一列，点击【分列】——【使用分隔符号分列】，点击下一步，勾选【其他】，然后在输入框中输入一个点（记得用英文输入法），后缀名就会被分离出来，我们再删掉即可！4、单元格设置然后点击第一个姓名，同时按【Ctrl shift ↓】选中所有姓名，点击【升序】排序（这样才能将名字和图片对应上），然后调整一下单元格大小~二、图片处理1、插入图片点击第二个姓名旁边的单元格，插入所有图片，调整图片大小，最下面的图片对应第一个名字，最上面的图片对应最后一个名字。
2、对齐点击任意一张图片，按Ctrl A即可选中所有图片，点击【格式】——【对齐】——【水平居中】和【纵向分布】，即可一秒排列！3、打印预览最后按Ctrl P即可预览效果啦！。
Excel批量插入所有员工的照片
Excel批量插入所有员工的照片把复联照片插入Excel，需要几秒钟？Excel插入照片？开什么玩笑？这也太简单了，还用教？我闭着眼睛都能做出来，下面开始我的表演。
一顿操作猛如虎，一看结果二百五。
动作很潇洒，但只有照片，没有对应的姓名，结果毫无意义。
今天要给大家分享的是如何快速将所有的照片批量导入到Excel，并匹配正确的姓名。
不用懂VBA，不用懂函数，是不是有点小激动。
请大家搬好小板凳，准备好瓜子，看我给大家秀一秀。
1、在照片所在的文件夹，右击—新建文本文档—输入dir>1.txt—保存并关闭。
懵逼了，这是啥意思？（解释：dir属于dos 命令，意思是将当前文件夹下的所有文件信息输入到1.txt的文本文档中。
当文件夹中没有1.txt时，会自动创建）2、显示后缀名（win7系统）：组织—文件夹和搜索选项—查看，去掉“隐藏已知文件类型的扩展名”的勾3、显示后缀名（win10系统）：查看—打勾“文件扩展名”4、选中刚才创建的文件—F2（重命名）—改后缀名为.bat。
5、接下来，就是见证奇迹的时刻，请各位看官不要眨眼睛—双击它，就会生成一个新的1.txt文档—选中里面所有姓名所在的行，按ctrl+c进行复制—打开Excel，按ctrl+v进行粘贴。
此时此刻，我只想说4个字：太帅了！请大家紧跟我的步伐，让我们继续浪下去~~~6、双击A、B列的边线（自动调整列宽），当然也可以手动把A 列的宽度拉大（这一步很重要，如果不做，后面的操作可能会失败）—复制奇异博士—在B1单元格进行粘贴—按ctrl+E（只有Excel2013及以上版本才有此功能），所有的姓名全部被提取出来了—删掉A列—删掉不需要的行。
ctrl+E太牛了，差点闪到我的腰（注意：用ctrl+E时，中间不能存在空列。
如果大家跳过B列，在C1单元格按ctr+E就明白了）7、插入新行，并在A1单元格中输入姓名—数据选项卡，排序—打勾“数据包含标题”—升序（一定要选升序，成败在此一举）。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
EXCEL批量导入图片
分类:脚本代码 | 评论:4 | 引用:0 | 浏览:
之前在小桥流水看到有人问怎样在Excel批量导入图片，随手写了个宏，没想到今天又有人问我，中午把VBA小改一下
图片用1.jpg 2.jpg 3.jpg ... 10.jpg 12.jpg依次命名
图片间隔是2张相邻图片左上角的间隔，例如图片尺寸100像素，间隔写100就刚好紧挨着
默认开始位置是以选择框所在位置，例如下图，选择框在B2，图片就从B2开始排列了
演示下载，解压到D盘就可以直接执行了，如果打开弹出提示窗口，是因为你Excel 安全性设置高，没事，一样可以执行
VBA代码如下
view plaincopy to clipboardprint?
1.Sub Macro1()
2.' 宏由 CAT 录制，时间: 2007-2-7
3.' 批量导入图片
4.
5.Dim picPath, picWidth, picHeight, fileExt
6. picPath = "D:\"'图片存放路径
7. picN = 4 '图片数量
8. fileExt = ".jpg"'图片后缀名
9. picScale = 30 '图片缩放百分比，不带 %
10. perPic = 2 '每行图片数量
11. xWidth = 202 '图片水平间隔，即水平相邻的图片左上角间隔
12. xHeight = 152 '图片垂直间隔
13.
14.Dim x, y
15. x = 0
16. y = 0
17.For i = 1 To picN
18. ActiveSheet.Pictures.Insert(picPath & i & fileExt).Select
19. Selection.ShapeRange.ScaleWidth picScale / 100, msoFalse, msoScaleFromTopLeft
20. Selection.ShapeRange.ScaleHeight picScale / 100, msoFalse, msoScaleFromTopLeft
21. Selection.ShapeRange.IncrementLeft xWidth * x
22. Selection.ShapeRange.IncrementTop xHeight * y
23.If i Mod perPic = 0 Then
24. x = 0
25. y = y + 1
26.Else
27. x = x + 1
28.End If
29.Next
30.End Sub。