近期深圳疫情频发,每天居家办公都需收集健康码、行程码这类图片信息。腾讯文档的收集功能是个很好的解决方案,美中不足的是附件上传的图片是个超链接,无法逐个添加到Excel中,逐个复制图片加入到Excel中费时费力。使用Excel的VBA可以解决这一痛点。
关键操作:
- 自定义一个函数,用户获取超链接中的链接地址。(也可以将图片在本地处理,但是处理更麻烦)
- 选择性粘贴(Unicode形式)
- 调整单元格大小(如果一开始就调整单元格,格子太大不方便操作)
操作还原:
Function GetAdrs(Rng)
Application.Volatile True
With Rng.Hyperlinks(1)
GetAdrs = IIf(.Address = “”, .SubAddress, .Address)
End With
End Function
复制公式所在列的文本,放入文本框中,再次复制,粘贴到相应位置时选择Unicode即可。
最后调整格子大小。
【结束】
发表回复