loveml2013的专栏

原创 常用vba代码

Sub insertpic() '根据图片名称插入对应图片Dim r As Long, i As RangeDim path As Stringr = ActiveSheet.[a65536].End(xlUp).Rowpath = "D:\Users\Administrator\Desktop\111" '修改图片所在文件夹路径For Each i In Range("a1...