Sub 按列批量插图() '按指定列的内容插入同名图片对应到右边列,图片大小自动适应单元格大小' On Error GoTo aa a = ActiveCell.Column '活动的列' b = a + 1 '活动列的右边一列' D = ActiveSheet.Cells(65536, a).End(xlUp).Row '最后一行 '跳出选择文件夹对话框 Set fd = Application.FileDialog(msoFileDialogFolderPicker) With fd If
问题描述：根据商品货号在Excel里进行图片展示
多文件批量插图
本程序下载地址：https://download.csdn.net/download/qq_35866846/12170343
有下载使用不清楚的可以后台留言
插入后效果图：
执行界面：
Sub 批量插图()
Dim MyFileName, MyPath As String
Dim MyBook As Workbook
Dim count As Integer
Dim pw As String
