下载地址：
下载地址1（本站为飞网专业下载站，域名：down.cfei.net）
资源简介：
Sub 按列批量插图() '按指定列的内容插入同名图片对应到右边列,图片大小自动适应单元格大小'On Error GoTo aaa = ActiveCell.Column '活动的列'b = a + 1 '活动列的右边一列'D = ActiveSheet.Cells(65536, a).End(xlUp).Row '最后一行'跳出选择文件夹对话框Set fd = Application.FileDialog(msoFileDialogFolderPicker) With fd If .Show = -1 Then t = .SelectedItems(1)End IfEnd WithFor i = 1 To Dn = Cells(i, a) '指定单元格的内容为nIf n = "" Then GoTo aa '空格时跳到最后Set fs = Application.FileSearch '设置模糊搜索文件夹With fs .LookIn = t '路径为T .Filename = n " *.jpg"
飞网下载站，免费下载共享资料，内容涉及教育资源、专业资料、IT资源、娱乐生活、经济管理、办公文书、游戏资料等。
