首先通过VBA宏实现图片与数据匹配插入,再利用Power Query结合超链接导入图片引用,最后介绍使用Kutools插件批量插入的方法,三种方式均能高效完成Excel中图片与数据的关联和批量处理。

如果您需要在Excel中将图片与特定数据关联,并批量插入到对应单元格中,可能是为了制作产品目录、人员档案或可视化报表。手动逐个插入效率低下,可以通过自动化方式实现精准匹配和批量处理。
本文运行环境:联想ThinkPad X1 Carbon,Windows 11
通过编写VBA脚本,可以自动读取指定文件夹中的图片,并根据文件名与Excel表格中的关键词匹配,将图片插入对应的单元格中。
1、按下Alt + F11打开VBA编辑器,在工作簿对应的模块中插入一个新模块。
2、粘贴以下代码并根据实际路径和列名进行修改:
Sub InsertPictures()
Dim picPath As String, fileName As String
Dim ws As Worksheet, lastRow As Long
Set ws = ActiveSheet
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
picPath = "C:\图片素材\" ' 修改为你的图片文件夹路径
fileName = Dir(picPath & "*.jpg")
Do While fileName ""
Dim keyName As String
keyName = Left(fileName, InStrRev(fileName, ".") - 1)
Dim findCell As Range
Set findCell = ws.Columns("A").Find(keyName, LookIn:=xlValues, LookAt:=xlWhole)
If Not findCell Is Nothing Then
Dim img As Picture
Set img = ws.Pictures.Insert(picPath & fileName)
With img
.Top = findCell.Offset(0, 1).Top
.Left = findCell.Offset(0, 1).Left
.Width = 100
.Height = 80
.Placement = 1
End With
End If
fileName = Dir
Loop
End Sub
3、保存代码后关闭编辑器,返回Excel按Alt + F8运行宏,选择InsertPictures执行。
Power Query可用于加载包含图片路径的数据表,并生成可点击的链接,再配合公式或控件显示图片预览。
1、在Excel数据表中创建两列:名称和图片路径,确保图片路径为完整绝对路径,例如:C:\图片素材\张三.jpg。
2、选中数据区域,点击“数据”选项卡下的“从表格/区域”导入到Power Query中。
3、在Power Query编辑器中确认数据正确后,点击“关闭并上载”将数据加载回Excel。
4、在目标工作表中新增一列用于显示图片占位符,使用公式如:=HYPERLINK([@图片路径], "点击查看图片") 创建可点击链接。
5、后续可通过VBA监听单元格点击事件,动态在指定位置显示对应图片。
某些Excel增强插件(如Kutools for Excel)提供“插入多张图片”功能,支持按文件名匹配单元格内容自动插入。
1、安装并启用Kutools插件后,在功能区找到“Kutools”选项卡。
2、点击“插入”组中的“多张图片”,打开批量插入向导。
3、设置图片所在文件夹路径,勾选“根据文件名匹配单元格”选项。
4、指定要匹配的列范围(如A2:A100),并设定插入图片的目标列偏移量。
5、设置图片尺寸缩放模式,选择是否覆盖原有图片,然后点击确定开始插入。所有匹配成功的图片将自动填入对应行的指定列中。
以上就是excel图片怎么导入 excel批量插入图片到单元格的详细内容,更多请关注php中文网其它相关文章!
全网最新最细最实用WPS零基础入门到精通全套教程!带你真正掌握WPS办公! 内含Excel基础操作、函数设计、数据透视表等
Copyright 2014-2025 https://www.php.cn/ All Rights Reserved | php.cn | 湘ICP备2023035733号