Videoda qo'llanilgan VBA kod:
Sub ExtractHyperlinkURLs()
Dim cell As Range
For Each cell In Selection
If cell.Hyperlinks.Count > 0 Then
cell.Offset(0, 1).Value = cell.Hyperlinks(1).Address
End If
Next cell
End Sub
PS
Kimga qiziq bo'lsa, yuqoridagi kodni olish uchun Copilotga quyidagi buyruqni yozdim:
I am using Excel and there are two columns
First column have 2000 rows of names of academic journals with hyperlinks, in the second column we need to extract all the links from the hyperlinks of first column
Sub ExtractHyperlinkURLs()
Dim cell As Range
For Each cell In Selection
If cell.Hyperlinks.Count > 0 Then
cell.Offset(0, 1).Value = cell.Hyperlinks(1).Address
End If
Next cell
End Sub
PS
Kimga qiziq bo'lsa, yuqoridagi kodni olish uchun Copilotga quyidagi buyruqni yozdim:
I am using Excel and there are two columns
First column have 2000 rows of names of academic journals with hyperlinks, in the second column we need to extract all the links from the hyperlinks of first column