VBAEXCEL按指定内容批量插图

Sub按列批量插图()'按指定列的内容插入同名图片对应到右边列,图片大小自动适应单元格大小'OnErrorGoToaaa=ActiveCell.Column'活动的列'b=a+1'活动列的右边一列'D=ActiveSheet.Cells(65536,a).End(xlUp).Row'最后一行'跳出选择文件夹对话框Setfd=Application.FileDialog(msoFileDialogFolderPicker)WithfdIf.Show=-1Then