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: 8 years, 1 month telt el-horvimi.

Jó helyre tetted 🙂
Úgy működik, mint egy Excel munkalap függvény, tehát egy üres cellába állsz, és utána
Egyik lehetőség, hogy:
1. megnyomod az fx gombot a függvény beillesztéséhez
2. kategória: felhesználói
3. Ott kiválasztod ezt a függvényt
4. kattintgatással megadod a paramétereket úgy, ahogy a fenti képen csatoltam.

Másik, gyorsabb lehetőség
1. Beírod, hogy: =subst_multiple(
2. fx vagy Ctrl+A
3. Megadod a paramétereket

ha megvan egy cella, akkor lehúzhatod az oszlopban, ha a módosítandó szövegeid oszlopban vannak.

FONTOS Info: A cserélendő listának egyedinek kell lennie. Ha lenne két vagy több olyan, amik ugyanúgy kezdődnek, vagy részben tartalmazzák egymást, akkor nem biztos, hogy jó cserét csinál.

Ha ilyenbe ütköznél, akkor kicsit módosítani kell a függvényt, hogy az első cserénél ugorjon ki a ciklusból, illetve a cserélendőket hosszuk szerint növekvőbe kell rendezni.

Meg még lehet vele egyéb gond is, ez a használat során fog kiderülni.
Kezdetnek biztos jó lesz.

???

Imre

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

Nem értem pontosan mit kérdezel, de a megtalált szövegrészt kicseréli arra, ami a párja a segédtáblában. Szóközökkel nem foglalkozik.
Legegyszerűbb,ha kipróbálsz mindenféle esetet, és ha kérdés merül fel, akkor szólj.
Legyen minta munkafüzet, amiben próbálkozol.

Imre