If Excel? Du er lei av å finne og erstatte verdier gang på gang, følgende VBA-kode kan hjelpe deg med å erstatte flere verdier med dine behov tekster på en gang.
1. Vennligst opprette forhold som du ønsker å bruke som inneholder de opprinnelige verdier og nye verdier. Se skjermbilde:
to. Så hold nede ALT + F11-tastene for å åpne Microsoft Visual Basic for Applications vinduet.
3. Klikk Sett > Modul, og lim inn følgende kode i modulen vindu
VBA-kode. Finn og erstatt flere verdier samtidig
Sub MultiFindNReplace () 'Update 20140722Dim RNG Som RangeDim InputRng As Range, ReplaceRng Som RangexTitleId = "KutoolsforExcel" Set InputRng = Application.SelectionSet InputRng = Application.InputBox ("Original Range", xTitleId, InputRng.Address, Type: = 8) Sett ReplaceRng = Application.InputBox ("Erstatt Range:", xTitleId, Type: = 8) Application.ScreenUpdating = FalseFor Hver RNG I ReplaceRng.Columns (1) .Cells InputRng.Replace hva: = Rng.Value, utskifting: = Rng.Offset (0, 1) .ValueNextApplication.ScreenUpdating = TrueEnd Sub4. Deretter trykker F5 for å kjøre denne koden, i spratt ut teksten boksen, vennligst oppgi dataområdet som du ønsker å bli erstattet verdiene med nye verdier.
5. Klikk OK, og en annen rask boks vises for å minne deg velge hvilke kriterier som du opprettet i trinn 1. Se skjermbilde:
6. Klikk deretter OK, alle de spesielle verdiene har blitt erstattet med de nye verdiene som du trenger umiddelbart. Anmeldelser