liens Sub extract ()
Pour chaque cellule Selection.Cells
cell.Offset (0, 1) = cell.Hyperlinks (1) .Address
Suivant
End Sub
lien texte Sub extrait id ()
Selection.Cells.Offset (0, 1) .EntireColumn.Insert
pour chaque cellule dans Selection.Cells
cell.Offset (0, 1) = cell.Hyperlinks (1) .Address
cell.Offset (0, 1) = Moyenne (cell .Offset (0, 1), InStr (cell.Offset (0, 1), "id =") + 3, 12)
avec 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
Sous id转链接()
Selection.Cells.Offset (0, 1) .EntireColumn.Insert
Selection.Cells.Offset (0, 1) .EntireColumn.Insert
pour chaque cellule dans Selection.Cells
cell.Offset (0, 1) = " https://detail.tmall.com/item.htm?id =" & cellule
cell.Offset (0, 2) = « //h5.m.taobao.com/awp/core/detail.htm?id= "et la cellule
suivante
End Sub
Sous extrait et l' identifiant de liaison transmis ()
Selection.Cells.Offset (0 ,. 1) .EntireColumn.Insert
Pour chaque cellule dans Selection.Cells
cell.Offset (0, 1) = Moyenne (cellule, InStr (cellule, "id =") + 3, 12)
avec 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: // détail. 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)
Suivant
End Sub