人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

Excel2007を利用しています。

A1に文字列「SONY」 ハイパーリンクの挿入で文字列SONY、アドレス?http://www.sony.co.jp?

B1に=hyperlink("?http://www.sony.co.jp","sony")?

と入っているとします。B1の形式を全てA1の形式に変換したいと思っていますがどのようにやればよいかわかりません。

Hyperlink関数を使った方がいろんな面で便利とは知っているのですが、B1のhyperlink関数からA1のハイパーリンク挿入への変換を教えていただきたく思います。B列には数百社のhyperlink関数で定義された企業名があるのですが、それをAの形式に手動でなおすには時間が恐ろしくかかってしまいます。よろしくお願いいたします。


●質問者: popattack
●カテゴリ:コンピュータ
✍キーワード:A1 sony アドレス ハイパーリンク 企業
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● ardarim
●60ポイント

VBAで作ってみました。

実行すると、B列のHYPERLINK関数の形式から、A列にハイパーリンクを追加します。

Sub ChangeHyperlinks()
 
 Dim r As Long
 Dim m As Long
 Dim t As String
 Dim url As String
 
 m = ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count - 1
 For r = 1 To m
 t = Trim$(Cells(r, 2).Formula)
 If Left$(t, 10) = "=HYPERLINK" Then
 t = Left$(t, Len(t) - 2) ' 右端の ") を削除
 t = Right$(t, Len(t) - 12) ' 左端の =HYPERLINK(" を削除
 url = Left$(t, InStr(t, """") - 1) ' URL切出し
 Cells(r, 1).Value = _
 Right$(t, Len(t) - Len(url) - 3) ' 別名を切出し、A列にセット
 ActiveSheet.Hyperlinks.Add _
 Cells(r, 1), url ' リンク追加
 End If
 Next r
 
End Sub

URLはダミー

http://q.hatena.ne.jp/1200671971

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ