.
？下，excel表格怎么将图片的超链接，转为图片啊
一列中有的行是空白的
.
Sub Test()
Dim Rng As Range
Dim Cell As Range
Dim Pic As Picture
Application.ScreenUpdating = False
Set Rng = Range("C2:C" & Range("C" & Rows.Count).End(xlUp).Row)
For Each Cell In Rng
With Cell
Set Pic = .Parent.Pictures.Insert(.Value)
With .Offset(, -1)
Pic.Top = .Top
Pic.Left = .Left
Pic.Height = .Height
Pic.Width = .Width
End With
End With
Next Cell
Application.ScreenUpdating = True
End Sub
嗯嗯，用的是这个
但是有的单元格是有空白的，会导致停止运行并报错
.
目前发现遇到部分不可用 url链接会报400错误并且停止运行，但是有一些不可用 url会自动跳过（我想要的效果），该如何修改实现呢？
碧雪就生花.州杭
或者直接on error resume next
.
sub
on error resume next
:
:
菜白.江浙
if 加在 for each cell 后 判断 cell 是否为空值 记得 end if
on error resume next 你加for 之前随便啥位置
eeWeD
总算是把高亮行解决了，看着舒服多了
菜白.江浙
?- 顺带一提 你插入图片 之前还是先把原先的图片先删一删 要不然多次执行 同一位置 N张相同图片
大家好，我是路遥。来自内蒙古鄂尔多斯的天蝎座女一枚~
管群群分.州苏
?鄂尔多斯-路遥欢迎新同学
，我们还有【微信群】 习惯用微信的朋友，欢迎加微信：JJ20110903，一定备注：Excel。邀您进坛 yks
想咨询一下坛中高手，怎么把如图所示的单元格下拉选项多添加一项？？yks.津天
也是在数据验证里改么？eeWeD
？下，条件格式的自定义规则，只能用于当前表么？不能通用于当前工作簿的所有表？
eeWeD
对啊，这不就是只选择一个表么
我是想所有表都用那条规则
管群群分.州苏
更多刷题群：一级建造师群750208860、教师资格证（中学）群784482005、税务师群515755579、二级建造师群603543545、税务师群748602164
.
on error resume next添加了，显示是这样的
显示是错位的
~秋暖.莞东
?常州-番茄 ?常州-番茄 是这个意思呢
哈哈
='F:\中能\中能\预算\2019年预算\2019年年度预算\股东会\[2019年预算调整.xlsx]经济效益分析表'!I6
，我们还有【微信群】 习惯用微信的朋友，欢迎加微信：JJ20110903，一定备注：Excel。邀您进坛
想咨询一下坛中高手，怎么把如图所示的单元格下拉选项多添加一项？？
