Telefonszámunk: 1-472-0679

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

Kezdőlap Fórumok Excel témák Gyors szöveg csere Hozzászólás: Gyors szöveg csere

#3022
horvimi
Adminisztrátor

    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

    Többszörös csere

    Majd szólj, hogy milyen…

    Imre

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