質問: ハイパーリンクのurlを隣のセルに表示する excelのシートの縦一列のセルにハイパーリンクの設定のある文字があります。 (1)この列の隣の列にそれぞれのハイパーリンクのurlを表示する。 (2)この列の文字表示を全てurlに一致させる。 (1)または、(2)は手作業でも出来ますが、できれば一括処理したいのですが、関数または、マクロでいい方法がありましたら教えてください。 よろしくお願いします。
回答: これで大丈夫かな? sub test() dim i as long for i = 1 to range("a65536").end(xlup).row cells(i, 1).hyperlinks(1).texttodisplay = cells(i, 1).hyperlinks(1).address cells(i, 2).value = cells(i, 1).hyperlinks(1).address next i end sub