* ハイパーリンク付きセルからリンク先を取得

Sub GetHyperlink()
 Dim i As Integer
 'Worksheets(1).Cells(5, 5).Value = "123"
 Dim h
 
 Worksheets(1).Cells(line, 列).Select
 If ActiveCell.Hyperlinks.Count = 1 Then
  h = ActiveCell.Hyperlinks.Item(1).Address
  Worksheets(1).Cells(i, 4).Value = h
  End If
 Next
End Sub


* 列をファイルに保存

Sub ExtractTitle()
Dim i, j As Integer
Dim Str As String

Open "c:\title.txt" For Output As #1

For i = 0 To 15
 Str = Worksheets(1).Cells(i, 2).Value
 Print #1, Str
  
 Next
Close #1
End Sub