这个需要先安装一个插件，然后，再用vba来编程完成的。
关键代码是：
ThisWorkbook.Sheets(.Name).QRmaker1.AutoRedraw = ArOn '外加插件
ThisWorkbook.Sheets(.Name).QRmaker1.InputData = QRString '外加插件
ThisWorkbook.Sheets(.Name).QRmaker1.Picture
ThisWorkbook.Sheets(.Name).QRmaker1.SetFocus
我也想知道。
内容全部来源于网络收集，如有侵权，请联系网站删除！