1、先把代码要使用得开发工具选显卡勾选出来;

3、代码写入模块

5、解释:● Sub InsertPic程序,是插入单个网络图片代码,可以把它理解为函数(实际它不是)它有三个参数:1, 图片链接:就是图片得网络地址2, 工作表得名字:就是图片这个3, 插入图片单元格地址:就是A1,B2这样得文本字符串

7、lngRow = Cells(Rows.Count, 1).End(xlUp).Row表示数据最后一行给变量lngRow记录,括号里面得1,表示A列,这个可以根据你实际数据结构,调整成2,表示B列,3,表示C列,以此类推For i = 3 To lngRow Call InsertPic(Cells(i, 2).Value, ActiveSheet.Name, "c" & i)Next这里是从第三行循环到数据最后一行

9、个人建议 整体操作流程如下。
