© 1999-2048 dssz.net 粤ICP备11031372号
[C] VBA EXCEL按指定内容批量插图
说明: 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<lesnco> 上传 | 大小:11kb