Hozzászólás: Gyors szöveg csere

Szia!

ha össze tudsz rakni egy két oszlopos megfeleltetési táblát, hogy mit mire kell cserélni, akkor abból már lehetne dolgozni.

Összedobtam neked egy UDF-et.
Egy külön munkafüzetben tedd egy modulba, majd mentsd el.
A munkafüzet legyen nyitva, úgy tudod használni.

Function subst_multiple(originalstring As String, findstrings As Range, subststrings As Range) As String
Dim f As String
Dim r As String
Dim i As Long

    If findstrings.Rows.Count = subststrings.Rows.Count Then
        For i = 1 To findstrings.Rows.Count
            f = findstrings.Cells(i)
            r = subststrings.Cells(i)
            If InStr(originalstring, f) <> 0 Then
                originalstring = Replace(originalstring, f, r)
            End If
            
        Next
        
        subst_multiple = originalstring
    Else
        subst_multiple = "#Find and replace arrays must have the same size!"
    End If
End Function

Majd szólj, hogy milyen…

Imre

• A hozzászólás módosításra került: 7 years, 11 months telt el-horvimi.