Kezdőlap › Fórumok › Excel témák › Gyors szöveg csere › Hozzászólás: Gyors szöveg csere
2016-09-27-10:11
#3022
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.