Sut i ddod o hyd i werthoedd lluosog a'u disodli ar unwaith yn Excel?
Fel y gwyddom i gyd, gallwn ddefnyddio swyddogaeth Dod o Hyd ac Amnewid i ddod o hyd i luosog yr un gell a rhoi gwerth yn ôl yr angen. Ond weithiau, mae angen i chi gymhwyso amnewidiad llawer i lawer ar yr un pryd. Er enghraifft, mae gen i ystod o ddata, a nawr rydw i eisiau disodli'r holl Afalau yn Afalau Coch, Orennau i Orennau Gwyrdd, Bananas i Bananas Melyn ac yn y blaen fel y dangosir sgrinluniau canlynol, a oes gennych chi unrhyw syniadau da i ddatrys y dasg hon Excel?
Darganfyddwch a disodli gwerthoedd lluosog ar unwaith gyda chod VBA
Darganfyddwch a disodli gwerthoedd lluosog ar unwaith gyda chod VBA
Os ydych wedi blino dod o hyd i'r gwerthoedd a'u disodli dro ar ôl tro, gall y cod VBA canlynol eich helpu i ddisodli gwerthoedd lluosog gyda'ch testunau angenrheidiol ar unwaith.
1. Crëwch eich amodau yr ydych am eu defnyddio sy'n cynnwys y gwerthoedd gwreiddiol a'r gwerthoedd newydd. Gweler y screenshot:
2. Yna dal i lawr y ALT + F11 allweddi i agor y Ffenestr Microsoft Visual Basic for Applications.
3. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn ffenestr y Modiwl.
Cod VBA: Darganfyddwch a disodli gwerthoedd lluosog ar unwaith
Sub MultiFindNReplace()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, ReplaceRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Original Range ", xTitleId, InputRng.Address, Type:=8)
Set ReplaceRng = Application.InputBox("Replace Range :", xTitleId, Type:=8)
Application.ScreenUpdating = False
For Each Rng In ReplaceRng.Columns(1).Cells
InputRng.Replace what:=Rng.Value, replacement:=Rng.Offset(0, 1).Value
Next
Application.ScreenUpdating = True
End Sub
4. Yna pwyswch F5 allwedd i redeg y cod hwn, yn y blwch prydlon popped allan, nodwch yr ystod ddata yr ydych am gael gwerthoedd newydd yn lle'r gwerthoedd.
5. Cliciwch OK, ac mae blwch prydlon arall yn cael ei arddangos i'ch atgoffa i ddewis y meini prawf rydych chi'n cael eich creu yng ngham 1. Gweler y screenshot:
6. Yna cliciwch OK, mae'r gwerthoedd newydd wedi'u disodli gan y gwerthoedd newydd yn ôl yr angen.
Erthyglau cysylltiedig:
Sut i ddod o hyd i destun penodol a'i ddisodli mewn blychau testun?
Sut i ddod o hyd i destun mewn teitlau siart yn Excel?
Sut i ddod o hyd i destun a'i ddisodli o fewn sylwadau yn Excel?
Sut i newid sawl llwybr hypergyswllt ar unwaith yn Excel?
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!