摘要:
Sub filelist() Dim MyName, Dic, Did, i, t, F, TT, MyFileName 'On Error Resume Next Set objShell = CreateObject("Shell.Application") Set objFolder = ob 阅读全文
posted @ 2020-03-06 16:02
hofmann
阅读(1964)
评论(0)
推荐(0)
摘要:
Sub splitlink() On Error Resume Next For Each cell In Range("K109:k154") cell.Offset(0, 1) = cell.Hyperlinks(1).Address Next End Sub K109:k154 代表分离的行数 阅读全文
posted @ 2020-03-06 13:51
hofmann
阅读(458)
评论(0)
推荐(0)

浙公网安备 33010602011771号