Sub アドレスのレース番号置き換え()


' アドレスのレース番号置き換え

'=SUBSTITUTE(O3,RIGHT(O3,3),O2)　関数だと

  Dim i, lRow As Long
    
    lRow = Cells(Rows.Count, "A").End(xlUp).Row  'A列の最終行を取得

   For i = 3 To lRow  'A列の最終行まで繰り返します。
        
      
      Cells(i, "A") = Application.Substitute(Cells(i, "A"), Right(Cells(i, "A"), 2), Cells(2, "A")) 'A列の文字列を置換します。
      
          '  Cells(I, "A") 第1引数に元の文字列(セル範囲)
          
          '  Right(Cells(I, "A"), 3) 第2引数に置換したい元の文字と右から３つ置換
          
          '  Cells(2, "A")第3引数に置換後の新しい文字

          
          
 Next i
End Sub

***************************************************************

ht tps://sports.yahoo.co.jp/keiba/race/result/2305030111
ht tps://sports.yahoo.co.jp/keiba/race/result/23050301(11)

このアドレスの右二桁の数字を（置き換えたい数字）
置き換えたい上のコードです。

sheet6のA列の2行目に置き換え番号二けた書き込む

'01
sheet6のA列の３行目からアドレスが有ります。

（例　A）

　　　　　　A列
行目
01
02　　　　　'01
03　ht　tps://sports.yahoo.co.jp/keiba/race/result/2305030111
04　ht　tps://sports.yahoo.co.jp/keiba/race/result/2309030111
05　ht　tps://sports.yahoo.co.jp/keiba/race/result/2305030211
06　ht　tps://sports.yahoo.co.jp/keiba/race/result/2309030211
07　ht　tps://sports.yahoo.co.jp/keiba/race/result/2302010111
08　ht　tps://sports.yahoo.co.jp/keiba/race/result/2305030311
09　ht　tps://sports.yahoo.co.jp/keiba/race/result/2309030311
10　ht　tps://sports.yahoo.co.jp/keiba/race/result/2302010211

上のコード起動するとこようになります。

（例　B）

　　　　　　A列
行目
01
02　　　　　'01
03　ht　tps://sports.yahoo.co.jp/keiba/race/result/2305030011
04　ht　tps://sports.yahoo.co.jp/keiba/race/result/2309030011
05　ht　tps://sports.yahoo.co.jp/keiba/race/result/2305030201
06　ht　tps://sports.yahoo.co.jp/keiba/race/result/2309030201
07　ht　tps://sports.yahoo.co.jp/keiba/race/result/2302010011
08　ht　tps://sports.yahoo.co.jp/keiba/race/result/2305030301
09　ht　tps://sports.yahoo.co.jp/keiba/race/result/2309030301
10　ht　tps://sports.yahoo.co.jp/keiba/race/result/2302010201

正しい置き換えは、

（例　C）

　　　　　　A列
行目
01
02　　　　　'01
03　ht　tps://sports.yahoo.co.jp/keiba/race/result/2305030101
04　ht　tps://sports.yahoo.co.jp/keiba/race/result/2309030101
05　ht　tps://sports.yahoo.co.jp/keiba/race/result/2305030201
06　ht　tps://sports.yahoo.co.jp/keiba/race/result/2309030201
07　ht　tps://sports.yahoo.co.jp/keiba/race/result/2302010101
08　ht　tps://sports.yahoo.co.jp/keiba/race/result/2305030301
09　ht　tps://sports.yahoo.co.jp/keiba/race/result/2309030301
10　ht　tps://sports.yahoo.co.jp/keiba/race/result/2302010201

（例　B）は、上のコードで実行すると
うまく取得できません。

（例　C）のように
アドレスの右二桁の数字を置き換えたい数字に
するには、
どのようにコードを修正したらよろしのでしょうか。
ご指導お願いいたします。

Excel　2010


この記事にはVBAのコードが含まれています。

緑の太文字→注釈
茶色の太文字→条件分岐
赤の太文字→ループ
青の太文字→その他

普通に、左部分と右部分(置き換え後）をくっつけたらどうですか？

    Dim str As String
    Dim i, lRow As Long
    
    lRow = Cells(Rows.Count, "A").End(xlUp).Row  'A列の最終行を取得
    
    For i = 3 To lRow  'A列の最終行まで繰り返します。
        str = Cells(i, "A")
        Cells(i, "A") = Left(str, Len(str) - 2) & Cells(2, "A")
    Next i


この記事にはVBAのコードが含まれています。

緑の太文字→注釈
茶色の太文字→条件分岐
赤の太文字→ループ
青の太文字→その他