loveml2013的专栏

原创 常用vba代码

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