使用EXECL批量生成一维码

1、打开新建一个execl表格。将所需要生成一位码的数据放置在第一列。

2、点击“ALT+F12”可以打开VBA程序编辑器。

3、点击插入，选择模块。就可以打开编辑界面了。编辑界面一开始是空白的。

4、在空白的编辑界面输入下记代码：Sub 批量生成条码() Dim i%, str1铮喘饿怊$, str2$, str3$, d As Object Set d = New DataObject Application.ScreenUpdating = False If Application.CountA(Range("A:A")) = 0 Then MsgBox "A列单号为空，程序退出!" Exit Sub Else i = Range("A65536").End(xlUp).Row For j = 1 To i If Cells(j, 1) <> "" Then str1 = "<table><img src=""http://apps.99wed.com/360app/barcode/barcode.php?codebar=BCGcode128&text=" str2 = "&resolution=2&thickness=30"" > " str3 = str3 & str1 & Cells(j, 1) & str2 & Chr(10) End If Next d.SetText str3 d.PutInClipboard Range("B1").Select ActiveSheet.PasteSpecial Format:="Unicode 文本", Link:=False, DisplayAsIcon:=False Columns(1).HorizontalAlignment = xlCenter Columns(1).VerticalAlignment = xlCenter Rows(1 & ":" & i).RowHeight = ActiveSheet.Pictures(1).Height Columns(2).ColumnWidth = ActiveSheet.Pictures(1).Width / 6.13 End If Application.ScreenUpdating = TrueEnd SubSub 批量删除条码() Dim myshape As Shape Application.ScreenUpdating = False For Each myshape In ActiveSheet.Shapes If myshape.Type = msoPicture Then myshape.Delete End If Next Application.ScreenUpdating = TrueEnd Sub

5、然后点击工具，引用。将这4个内容打钩，便于程序进行引用，避免运行出错。

6、然后选择打开的execl，点击标题栏中的视图，选择最右侧的宏。弹出的提示框有两稍僚敉视个宏程序。选择批量生成条码，点击运行。

7、运行后，可以看到所有的数据列都已经生成了条形码。

8、同样的操作，选择批量删除条码，可以批量删除刚才生成的一维码。