A列に記載の同じ文字をB列に記載の違う文字に置換したい。

ExcelのA列に以下のようにURLの記載があります。
A列の●の箇所をB列に記載の内容に変換したいです。

置換でやってみましたがうまくいきません。
100件以上あるので一気にできたらと思い、有識者の方ご教示いただきたくお願いいたします。

=================================
A列　　　　　　　　　　　　　　　　　　B列

1=('https://www.******.com/●/') abe
2=('https://www.******.com/●/') def
3=('https://www.******.com/●/') fdaf
4=('https://www.******.com/●/') hrhr
・
・
・
・

★結果、以下のようにしたいです。
1=('https://www.******.com/abe/')
2=('https://www.******.com/def/')
3=('https://www.******.com/fdaf/')
4=('https://www.******.com/hrhr/')

行動規範の内容に同意します

回答1件

ベストアンサー

VBA
1Option Explicit ' 文法エラーを防ぐため、宣言してない変数は使えないようにする
2
3Sub 置換()
4    ' 数値型の変数 i を宣言
5    Dim i As Integer
6    
7    ' 数値型の変数 e を宣言
8    Dim e As Integer
9    
10    ' e に A 列のデータが入っている行数を入れる
11    ' ActiveSheet は現在作業中のシートを表すオブジェクト
12    ' Columns(1) はそのシートの 1 列目を表すオブジェクト
13    ' End(xlDown) はその列のデータが入っている最終セルを表すオブジェクト
14    ' row はそのセルの行番号
15    e = ActiveSheet.Columns(1).End(xlDown).row
16    
17    For i = 1 To e
18        ' Cells(i, 1) は A 列 i 行目のセルを表すオブジェクト
19        ' Value はそのセルの値で、これを書き換えるとセルの値を書き換えることになる
20        ' Replace は文字列を置換する関数
21        ' Replace(置換対象, 置換される文字列, 置換後の文字列) のように使う
22        ' Replace を実行しただけでは置換対象を書き換えないので戻り値を置換対象に代入する
23        Cells(i, 1).Value = Replace(Cells(i, 1).Value, "●", Cells(i, 2).Value)
24    Next
25End Sub