Excel リンク先の特定セルを抽出

Excelにおけるデータ集計の際、
①　A列に別のブックへのハイパーリンク（1000件近く）があり、
②　そのリンク先のA１のセルに記載されている内容をコピーし
③　B列に貼り付けしたい場合、
最も効率的な行い方はどういったものがあるでしょうか？

リンク先のフォーマットは常に一定であり、
シート名は、format　です。
リンク先のファイルは複数のフォルダに保存されています。

VBAは初心者ですが、よろしくおねがいいたします。

No.2 ベストアンサー 回答者： bonaron 回答日時： 2016/01/18 12:04

リンク先の表示文字列とハイパーリンクアドレスが一致しているものとして、

かなり手抜きのコードですが。

Sub Sample()
　　Dim wBook As Workbook
　　Dim wSheet As Worksheet
　　Dim i As Long

　　On Error GoTo Func_Err

　　ChDir ThisWorkbook.Path　　'相対アドレスに対応

　　Set wSheet = ThisWorkbook.ActiveSheet
　　i = 2　　'2行目から開始

　　Do While True
　　　　Set wBook = Workbooks.Open(Cells(i, 1), False, True)
　　　　wSheet.Cells(i, 2).Value = wBook.Worksheets("Format").Range("A1").Value
　　　　wBook.Close
　　　　i = i + 1
　　Loop
Func_Err:
　　If wSheet.Cells(i, 1) <> "" Then
　　　　MsgBox Err.Description
　　End If
　　Err.Clear
End Sub

この回答へのお礼

リンクのアドレスを抜き出すマクロと組み合わせるといい結果が出そうです。
ただ、空白のセルがあると止まってしまうことを解決したいです。

別の質問に投稿させていただいておりますので、もしお時間があればご教授いただければ幸いです。

お礼日時：2016/01/20 19:54

No.1 回答者： satriani2013 回答日時： 2016/01/17 16:47

A1セルを選択しCTRL-C　でコピー

B1セルを選択しCTRL-V　で貼り付け

この回答へのお礼

ありがとうございます。

お礼日時：2016/01/20 19:54