最後に出現した文字を置換する

Question

ファイルへのパスが多いスプレッドシートがあります。私は、次の式を使用して、列の各セルの最後の "\"を置き換えます。これをマクロに変更して、各列をペーストしてドラッグする必要はありません。

=SUBSTITUTE(K2,"\","?",LEN(K2)-LEN(SUBSTITUTE(K2,"\",""))) 

私はマクロを記録しようとしましたが、これが唯一つのセルではなく動作し、アクティブセルがO列

Sub Macro4() 
ActiveCell.FormulaR1C1 = _ 
    "=SUBSTITUTE(RC[-4],""\"",""?"",LEN(RC[-4])-LEN(SUBSTITUTE(RC[-4],""\"","""")))" 
Range("O2").Select 
End Sub 

にある場合にのみ、私は、これはO列に値を入れている必要があります活動セルが何であるかにかかわらず、K2で始まる各空でないKについてO2から開始する。ここで

Answer 1

別のアプローチである：

Sub LastSlash() 
    Dim N As Long, i As Long, rng As Range, r As Range 
    Dim rc As Long, L As Long, j As Long 

    rc = Rows.Count 
    Set rng = Intersect(ActiveSheet.UsedRange, Range("K2:K" & rc)) 
    N = Cells(rc, "K").End(xlUp).Row 

    For Each r In rng 
     s = r.Value 
     L = Len(s) 
     If InStr(1, s, "\") > 0 Then 
      For j = L To 1 Step -1 
       If Mid(s, j, 1) = "\" Then 
        Mid(s, j, 1) = "?" 
        Exit For 
       End If 
      Next j 
     End If 
     r.Offset(0, 4).Value = s 
    Next r 
End Sub