Sub 提取链接()
Selection.Cells.Offset(0, 1).EntireColumn.Insert For Each cell In Selection.Cells cell.Offset(0, 1) = cell.Hyperlinks(1).Address Next
End Sub
Sub 提取文字中链接的id()
Selection.Cells.Offset(0, 1).EntireColumn.Insert For Each cell In Selection.Cells cell.Offset(0, 1) = cell.Hyperlinks(1).Address cell.Offset(0, 1) = Mid(cell.Offset(0, 1), InStr(cell.Offset(0, 1), "id=") + 3, 12) With cell.Offset(0, 1) .NumberFormatLocal = "0_ " .HorizontalAlignment = xlLeft .VerticalAlignment = xlCenter End With cell.Offset(0, 1).Value = "'" & cell.Offset(0, 1).Value Next
End Sub
Sub id转链接() Selection.Cells.Offset(0, 1).EntireColumn.Insert Selection.Cells.Offset(0, 1).EntireColumn.Insert For Each cell In Selection.Cells cell.Offset(0, 1) = "https://detail.tmall.com/item.htm?id=" & cell cell.Offset(0, 2) = "//h5.m.taobao.com/awp/core/detail.htm?id=" & cell Next
End Sub
Sub 提取id并转链接() Selection.Cells.Offset(0, 1).EntireColumn.Insert
For Each cell In Selection.Cells cell.Offset(0, 1) = Mid(cell, InStr(cell, "id=") + 3, 12) With cell.Offset(0, 1) .NumberFormatLocal = "0_ " .HorizontalAlignment = xlLeft .VerticalAlignment = xlCenter End With cell.Offset(0, 1).Value = "'" & cell.Offset(0, 1).Value cell.Offset(0, 2) = "https://detail.tmall.com/item.htm?id=" & cell.Offset(0, 1) cell.Offset(0, 3) = "//h5.m.taobao.com/awp/core/detail.htm?id=" & cell.Offset(0, 2) Next
End Sub