在社区发现了批量生成条形码的代码，对于一点都没有代码基础的我来说，竟然试验成功了，O(∩_∩)O哈哈~有了这个代码，以后就不用担心批量生成条形码费时间了，上次做条形码的时候，我是一个一个复制，然后双击修改的，还好不多，要不肯定费很长时间。
代码如下：
function 批量生成条码(){
n=Range('a'+Rows.Count).End(xlUp).Row
for(i=2;i<=n;i++){
let rg1=Cells.Item(i,'a')
let rg2=Cells.Item(i,'c')
let link = 'https://bwipjs-api.metafloor.com/?bcid=code128&text='
+rg1.Value2+
'&includetext=true&textsize=12&height=9'
let pic = ActiveSheet.Shapes.AddPicture
(link, true, true, rg2.Left+5, rg2.Top+5, 120, 50)
}
}
（以上代码是人家的）
因为是小白，不明白啥原理，用这个代码的时候，第一行不要出现条形码数字，然后就可以了，第一行如果有的话，可能需要改一下代码。