Note: The other languages of the website are Google-translated. Back to English

Excelでハイパーリンクをあるセルから別のセルにのみコピーするにはどうすればよいですか?

列Aに値のリストがあり、各セルに異なるハイパーリンクが含まれているとすると、次のスクリーンショットに示すように、テキストのないハイパーリンクのみを別の列Eにコピーします。 Excelでこのジョブを直接解決する方法はないかもしれませんが、ここでは、それを処理するためのVBAコードを紹介します。

別のセルへのドキュメントコピーハイパーリンク1

VBAコードを使用してハイパーリンクをあるセルから別のセルにコピーする


矢印青い右バブル VBAコードを使用してハイパーリンクをあるセルから別のセルにコピーする

テキストなしのハイパーリンクアドレスのみを他のセルにコピーするには、次のコードを使用してください。

1。 を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュール 窓。

VBAコード:あるセルから別のセルにのみハイパーリンクをコピーします。

Sub CopyHyperlinks()
'Uodateby Extendoffice
    Dim xSRg As Range
    Dim xDRg As Range
    Dim I As Integer
    Dim xAddress As String
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xSRg = Application.InputBox("Please select the original range you want to copy hyperlinks:", "KuTools For Excel", xAddress, , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    Set xDRg = Application.InputBox("Please select the new range you want to paste the hyperlinks only", "KuTools For Excel", , , , , , 8)
    If xDRg Is Nothing Then Exit Sub
    Set xDRg = xDRg(1)
    For I = 1 To xSRg.Count
        If xSRg(I) <> "" And xDRg.Offset(I - 1) <> "" Then
            If xSRg(I).Hyperlinks.Count = 1 Then
                xDRg(I).Hyperlinks.Add xDRg(I), xSRg(I).Hyperlinks(1).Address
            End If
        End If
    Next
End Sub

3。 そして、 F5 このコードを実行するためのキーを押すと、ハイパーリンクのみをコピーするセルを選択するように促すダイアログボックスが表示されます。スクリーンショットを参照してください。

別のセルへのドキュメントコピーハイパーリンク02

4。 そして、 OK、次に、ハイパーリンを別のダイアログボックスにのみ貼り付けるセルを選択します。スクリーンショットを参照してください。

別のセルへのドキュメントコピーハイパーリンク03

5。 また、ハイパーリンクアドレスは、必要に応じて元のセルから指定されたセルにコピーされています。スクリーンショットを参照してください。

別のセルへのドキュメントコピーハイパーリンク04

注意:このコードは、必要に応じて、あるシートから別のシートにハイパーリンクをコピーするのにも役立ちます。


最高のオフィス生産性ツール

Kutools for Excelはほとんどの問題を解決し、生産性を80%向上させます

  • 再利用: すばやく挿入 複雑な数式、チャート および以前に使用したものすべて。 セルを暗号化する パスワード付き。 メーリングリストを作成する そしてメールを送る...
  • スーパーフォーミュラバー (複数行のテキストと数式を簡単に編集できます); 読書レイアウト (多数のセルを簡単に読み取って編集する); フィルター範囲に貼り付け...
  • セル/行/列をマージする データを失うことなく; 分割セルコンテンツ; 重複する行/列を組み合わせる...重複セルを防止します。 範囲を比較する...
  • [複製]または[一意]を選択します 行; 空白行を選択 (すべてのセルは空です); スーパーファインドとファジーファインド 多くのワークブックで; ランダム選択...
  • 正確なコピー 数式参照を変更せずに複数のセル。 参照の自動作成 複数のシートに; 箇条書きを挿入、チェックボックスなど...
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷。 セルの内容とコメントを変換する...
  • スーパーフィルター (フィルタースキームを保存して他のシートに適用します); 高度な並べ替え 月/週/日、頻度など。 特殊フィルター 太字、斜体...
  • ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。 データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
  • 300 以上の強力な機能. Office / Excel 2007-2021 および 365 をサポートします。すべての言語をサポートします。 企業や組織に簡単に導入できます。 フル機能の 30 日間無料トライアル。 60日間の返金保証。
kteタブ201905

Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
officetab下部

 

コメントを並べ替える
コメント (13)
まだ評価はありません。 最初に評価してください!
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、ハイパーリンクをシートAのセルA5からシートBのセルA5にコピーしたい場合はどうすればよいですか?
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、Arpit:

VBAコードを更新しました。必要に応じて、XNUMXつのワークシートに適用できます。 それを試してみてください、それがあなたを助けることができることを願っています!
このコメントは、サイトのモデレーターによって最小化されました
あるファイルの複数のシートにあるリンクを別のファイルにコピーしたい
このコメントは、サイトのモデレーターによって最小化されました
こんにちは..vlookupを介してハイパーリンクをコピーしたい場合はどうなりますか? すでに数式がありますが、ハイパーリンクをクリックすると「指定したファイルを開けません」と表示されます。

私を助けてください
このコメントは、サイトのモデレーターによって最小化されました
動作しません。
このコメントは、サイトのモデレーターによって最小化されました
大好きです。 どうもありがとうございました。
ドミニカ共和国からの愛:)
このコメントは、サイトのモデレーターによって最小化されました
動作しません。
このコメントは、サイトのモデレーターによって最小化されました
セル内でA1がハイパーリンクであるとすると、ハイパーリンクのパスを取得するには、次のような数式を作成します。
>> (MID((FORMULATEXT(A1));(FIND("(";(FORMULATEXT(A1)))+2);(FIND(";";(FORMULATEXT(A1)))-1)-(FIND("(";(FORMULATEXT(A1)))+2))) <<
このコメントは、サイトのモデレーターによって最小化されました
これも私にはうまくいきませんでした。
このコメントは、サイトのモデレーターによって最小化されました
これは素晴らしいです、そしてそれは働きます。 他の人のコードをコピーして貼り付けるのが大好きです:D
このコメントは、サイトのモデレーターによって最小化されました
私にはうまくいきません。 私がまだExcel2007を使用しているという事実は重要ですか?
このコメントは、サイトのモデレーターによって最小化されました
OK、それであなたは私のコメントを公開しないでしょう-それは公平です。 ただし、登録してログインする場合は、機能するソリューションを表示する必要があります。これは、(機能していないXNUMXつのインスタンスに基づいて)登録に価値があることを私に説得するものが何もないためです。
このコメントは、サイトのモデレーターによって最小化されました
ユースケースで機能するように、次の編集を行いました。
サブCopyHyperlinks()
'Uodateby Extendoffice
範囲としての薄暗いxSRg
範囲としての薄暗いxDRg
Dim I As Integer
Dim xAddress を文字列として
エラーで次の再開
xAddress = ActiveWindow.RangeSelection.Address
Set xSRg = Application.InputBox( "ハイパーリンクをコピーする元の範囲を選択してください:"、 "KuTools For Excel"、xAddress 、、、、、 8)
xSRgが何もない場合は、Subを終了します
Set xDRg = Application.InputBox( "ハイパーリンクのみを貼り付ける新しい範囲を選択してください"、 "KuTools For Excel" 、、、、、、、 8)
xDRgが何もない場合は、Subを終了します
xDRg = xDRg(1)に設定します
I=1の場合xSRg.Countへ
If xSRg(I).Hyperlinks(1).Address <> ""またはxSRg(I).Hyperlinks(1).SubAddress <> "" Then
xSRg(I).Hyperlinks.Count=1の場合
xDRg(I).Hyperlinks.Add Anchor:= xDRg(I)、_
アドレス:= xSRg(I).Hyperlinks(1).Address、_
SubAddress:= xSRg(I).Hyperlinks(1).SubAddress
'ScreenTip:= xSRg(I).Hyperlinks(1).ScreenTip、_
'TextToDisplay:= xSRg(I).Hyperlinks(1).TextToDisplay
終了する場合
終了する場合
次へ
End Subの
ここにはまだコメントが投稿されていません

フォローする

著作権©の2009 - WWW。extendoffice.com。 | | 全著作権所有。 搭載 ExtendOffice。 | サイトマップ
MicrosoftおよびOfficeのロゴは、米国MicrosoftCorporationの米国およびその他の国における商標または登録商標です。
SectigoSSLで保護