用VBA改变一个格式，帮忙看看

crbl99

用VBA改变一个格式，帮忙看看

网海遨游

是不是这样的？


Sub test2020()
     Set sh1 = Sheets("原始格式"): Set sh2 = Sheets("生成格式")
     sh2.Cells.Clear
     For Each Rng In sh1.Range("a2:a" & sh1.Cells(Rows.Count, 1).End(3).Row)
          a = InStr(Rng.Value, ":") - 5: b = InStr(Rng.Value, "jpg") + 3: c = Mid(Rng.Value, a, b - a)
          a1 = InStr(Rng.Value, "alt=") + 5: b1 = InStr(Rng.Value, "/>") - 6: c1 = Mid(Rng.Value, a1, b1 - a1)
          n = n + 1
     sh2.Cells(n, 1) = c1
     Hyperlinks.Add sh2.Cells(n, 2), c, , , c
     Next
End Sub

crbl99

网海遨游 发表于 2019-12-9 16:37
是不是这样的？

大侠能给弄好不

网海遨游

这是附件，你看看。

专搞excel

这链接这性感，差点就被同事看到了，赶紧关了

crbl99

专搞excel 发表于 2019-12-9 17:08
这链接这性感，差点就被同事看到了，赶紧关了

别点开啊

crbl99

网海遨游 发表于 2019-12-9 16:57
这是附件，你看看。

感谢大神帮助