电子表格Excel上怎么弄上这个条形码,求高手指点

1.Excel上怎么弄上这个条形码,求高手指点

你好，你是想在excel里面弄上条形码是吗？

如果你只是能看到这条形码而不需要扫描的话，那你可以先用条码软件设计你要的条形码，然后截图，在excel里插入图片就可以。

但是如果你想要excel里的条形码可以扫描的

那你可以先用条形码软件设计你想要的条形码。

然后再设置打印机为adobe PDF on Ne02.

他就会把条形码生成PDF，你就可以设置你的比例大小，然后再截图！希望对你有所帮助！

2.我想提取当A1是款号的时候,在新表格中提取它下面的所有数据

可以使用EXCEL的VBA功能来实现。

默认楼主截图是第一张表，条码等菜单为第一行，供应商那里为A列PS：这样要提取的供应商那一列就是J列按alt+F11进入VBA模式，在左边"thisworkbook"那里右键-插入-模块在右边的模块中复制下列代码，然后按F5运行即可Sub test()Dim i As IntegerDim k As Integeri = 2k = 2Do While Sheet1.Range("C" + CStr(i)) <> "" If Sheet1.Range("A" + CStr(i)).Value = "毛" Then If Sheet1.Range("J" + CStr(k)) = "" Then Sheet1.Range("J" + CStr(k)) = Sheet1.Range("A" + CStr(i)） '复制供应商 Sheet1.Range("K" + CStr(k)) = Sheet1.Range("B" + CStr(i)） '复制条码 Sheet1.Range("L" + CStr(k)) = Sheet1.Range("C" + CStr(i)） '复制商品名称 Sheet1.Range("M" + CStr(k)) = Sheet1.Range("D" + CStr(i)） '复制进价 Sheet1.Range("N" + CStr(k)) = Sheet1.Range("E" + CStr(i)） '复制数量 Sheet1.Range("O" + CStr(k)) = Sheet1.Range("F" + CStr(i)） '复制合计金额 Sheet1.Range("P" + CStr(k)) = Sheet1.Range("G" + CStr(i)） '复制备注 k = k + 1 End If End Ifi = i + 1LoopEnd Sub。