让Excel批量自动生成二维码，没有比这个方法更简单的了

HI，大家好，我是星光。

之前给大家分享了如何让Excel自动生成条形码和二维码「链接」，但其中生成二维码的方法有些瑕疵，比如，不支持中文等。

今天给大家分享另外两个更简单的方法。

第1种方法是VBA，两行代码即可。第2种方法是函数，嗯，比VBA更简单，一个函数就搞定

。

01

先说函数吧，这货简单的不像话。

如上图所示，B2单元格输入以下公式，向下复制填充即可。

公式看不全可以左右拖动...▼

=IMAGE('https://api.qrserver.com/v1/create-qr-code/?size=150x150&data='&A2)

IMAGE函数是Office 365中的新函数，可以根据第1参数的网址自动下载图片，并按指定格式填充到单元格中。

本例中，它的第1参数是qrserver.com的QR CODE API接口，可以公开、免费、稳定的生成二维码。

换句话说，我们把qrserver.com生成二维码的网址给它，剩下的事就让它去操心，咱们躺收其成就行了。

02

然后再说VBA，这货也不难。

如上图所示，输入以下两行代码，就可以根据A1单元格的内容在B1单元格生成二维码。

代码看不全可以左右拖动...▼

Sub GetQRCode()    Range('b1').Select    ActiveSheet.Pictures.Insert ('https://api.qrserver.com/v1/create-qr-code/?size=150x150&data=' & Range('a1').Value)End Sub

……

而如果需要批量生成二维码，比如根据A列单元格的内容在B列生成对应的二维码，嵌套一层循环语句即可。

示例中所使用的VBA代码如下：

代码看不全可以左右拖动...▼

Sub GenerateQRCode() Dim rng As Range, cell As Range Dim shp As Shape, img As Picture, url As String Application.ScreenUpdating = False For Each shp In ActiveSheet.Shapes If shp.Type = 11 Then shp.Delete Next Set rng = Range('A2:A' & Cells(Rows.Count, 'A').End(xlUp).Row) rng.RowHeight = 60 '调整行高    rng.Offset(0, 1).ColumnWidth = 15 '调整隔壁列列宽 For Each cell In rng If Len(cell.Value) Then url = 'https://api.qrserver.com/v1/create-qr-code/?size=150x150&data=' & cell.Value Set img = ActiveSheet.Pictures.Insert(url, False) With cell.Offset(0, 1) img.Top = .Top + 3 img.Left = .Left + 3 img.Width = .Width img.Height = .Height - 6 End With End If Next Application.ScreenUpdating = True MsgBox '处理完成。', , '公众号Excel星球'End Sub

以上两段代码的都是通过qrserver.com的QR CODE API生成二维码，核心始终都是下面这一行代码。

ActiveSheet.Pictures.Insert('https://api.qrserver.com/v1/create-qr-code/?size=150x150&data=' & Range('a1').Value)

其余代码不过是打打杂，将插入到Excel中的二维码调整下位置和大小——在使用该代码时记得电脑需要处于联网状态。

……

OK，这就是今天给大家分享的全部内容了，有学到或有帮助的话，右下角点个赞，挥挥手，更多有趣或实用的表格技巧，咱们下期再见

案例文件下载百度网盘...▼

http://t.cn/A6Cbah3g