*************************************************************
<例>・・・A列にはハイパーリンクされているセルとされていないセルが混在です
A列(社名) B列(郵便番号) C列(住所) D列(電話番号)
(株)ABC商事 100-1234 東京都港区… 03-1234-5678
XYZ運送(有) 200-6789 東京都港区… 03-8765-4321
(株)あいう物産 100-1234 東京都港区… 03-9999-0001
↓VBA実行↓
A列(社名) B列(郵便番号) C列(住所) D列(電話番号)
E列
(株)ABC商事 100-1234 東京都港区… 03-1234-5678
http://www.abc.co.jp
XYZ運送(有) 200-6789 東京都港区… 03-8765-4321
(株)あいう物産 100-1234 東京都港区… 03-9999-0001
http://www.aiu.ne.jp
*************************************************************
上記のようなデータがExcel上に有ります。
A列にはハイパーリンクされているセルとされていないセルが混在していますが、この、情報を別の列に一括でコピー出来ないでしょうか?
現在は、1つずつ、A列のURLをE列にコピペしています。
非常に手間が掛かり困っています。
よろしくお願い致します。
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
こちらを参考にしました。
【手順】
1. [Alt]+[F11]でVisual Basic Editor起動(以下VBE)
2. VBE画面で[挿入]-[標準モジュール]クリック
3. 2.で開いたウインドウにVBAコードをコピー&ペースト
4. VBEを閉じる
5. [ツール]-[マクロ]-[マクロ]で実行
-----------------------------------------------------------
Public Sub GetURL()
Dim h As Hyperlink
Dim a As String
Dim s As String
For Each h In ActiveSheet.Hyperlinks
a = h.Address
s = h.SubAddress
If s <> "" Then
a = a & "#" & s
End If
h.Range.Offset(0, 4) = a
Next
End Sub
ヒエーーー!驚きました!
”アッという間に”出来るんですね。
今まで何時間も掛けてコピペしていたのが、バカみたいです。
感謝感激です。有難う御座いました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(Microsoft Office) EXCELの1行を1枚の用紙にそれぞれ印刷したい。 3 2022/10/10 11:35
- Excel(エクセル) LEFT関数で文字数を指定しないで取りだす方法 7 2023/06/30 09:49
- その他(妊娠・出産・子育て) ピンハネ人身売買派遣会社を潰さない限り人口は増えません 2 2022/10/26 06:27
- Excel(エクセル) excelで検索した商品の画像(ネットワーク上の)を表示させたい。 3 2023/06/28 00:32
- Excel(エクセル) 【Excel】住所に郵便番号を付記する方法 3 2022/05/07 17:15
- Excel(エクセル) エクセルのマクロを教えてください。 2 2022/03/28 13:14
- Excel(エクセル) Excelのtextbox 1 2022/04/15 15:26
- その他(Microsoft Office) 逆順 3 2023/08/24 09:30
- Excel(エクセル) EXCELでの複雑な複数条件について 4 2022/05/09 16:19
- Visual Basic(VBA) Changeイベントで複数セルへの貼り付けおよび値削除時に1個目のセルのみエラーになる 3 2022/12/21 09:07
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
エクセルでハイパーリンクのコピー
Excel(エクセル)
-
エクセルでハイパーリンクのURLだけを文字抽出したい
Excel(エクセル)
-
ハイパーリンクを一瞬でコピー・貼り付けしたいです。
Firefox(ファイヤーフォックス)
-
-
4
Excel ハイパーリンクのURLを別のセルに表示したい。
その他(Microsoft Office)
-
5
エクセル、ハイパーリンクのコピーについて
Excel(エクセル)
-
6
エクセルのハイパーリンクがコピーすると飛ばなくなる
Excel(エクセル)
-
7
ハイパーリンクされたセルをVlookupでひっぱってきたい
Excel(エクセル)
-
8
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
PowerPointで表の1つの列だけ...
-
エクセルで二つの数字の小さい...
-
Excel 複数列 A列B列C列一致 D...
-
エクセル(勝手に太字になる)
-
エクセル 文字数 多い順 並...
-
エクセルで最初のスペースまで...
-
「B列が日曜の場合」C列に/...
-
エクセルの並び変えで、空白セ...
-
VBAで文字列を数値に変換したい
-
エクセルVBA、別ブックへ転記す...
-
Excel、市から登録している住所...
-
2つのエクセルのデータを同じよ...
-
A列がない・・・A列が非表示に...
-
EXCELで 一桁の数値を二桁に
-
エクセルで、列の空欄に隣の列...
-
エクセルで文字が混じった数字...
-
Excelで半角の文字を含むセルを...
-
エクセル 時間帯の重複の有無
-
エクセルの表から正の数、負の...
-
エクセルの列を範囲選択しての...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで二つの数字の小さい...
-
PowerPointで表の1つの列だけ...
-
エクセルで最初のスペースまで...
-
2つのエクセルのデータを同じよ...
-
エクセル(勝手に太字になる)
-
「B列が日曜の場合」C列に/...
-
エクセル 文字数 多い順 並...
-
EXCELで 一桁の数値を二桁に
-
エクセル 同じ値を探して隣の...
-
VBAで文字列を数値に変換したい
-
エクセルの並び変えで、空白セ...
-
Excelで半角の文字を含むセルを...
-
エクセルで文字が混じった数字...
-
Excel、市から登録している住所...
-
A列がない・・・A列が非表示に...
-
エクセルの表から正の数、負の...
-
[関数得意な方]教えて下さい・...
-
エクセルの項目軸を左寄せにしたい
-
エクセル 時間帯の重複の有無
-
Excelにてある膨大なデータを管...
おすすめ情報