Note: The other languages of the website are Google-translated. Back to English

Sut i ddod o hyd i werthoedd lluosog a'u disodli ar unwaith yn Excel?

doc lluosog dod o hyd i ddisodli 1

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


swigen dde glas saeth 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:

doc lluosog dod o hyd i ddisodli 2

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.

doc lluosog dod o hyd i ddisodli 3

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:

doc lluosog dod o hyd i ddisodli 4

6. Yna cliciwch OK, mae'r gwerthoedd newydd wedi'u disodli gan y gwerthoedd newydd yn ôl yr angen.

doc lluosog dod o hyd i ddisodli 5


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?

 


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a 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!
gwaelod officetab

 

sylwadau (132)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Wnaeth hyn ddim gweithio i mi. Rwy'n defnyddio Excel 2010. Fe'm hysgogodd am yr ystod wreiddiol ac yna methodd yr ystod newydd heb unrhyw negeseuon. Ni chafodd dim ei ddisodli. Byddaf yn parhau i chwilio am ffordd i wneud hyn.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A fyddech cystal â diystyru fy sylw diwethaf. Roeddwn i'n ei wneud yn anghywir. Gweithiodd yn iawn!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
[dyfyniad] Anwybyddwch fy sylw diwethaf. Roeddwn i'n ei wneud yn anghywir. Gweithiodd yn iawn!Gan Ken Long[/dyfyniad] Nid yw'n gweithio i mi. Sut oeddech chi'n ei wneud yn anghywir. Does gen i ddim gwybodaeth am VBA.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, ceisiais ddefnyddio'r macro hwn i gyfieithu mesuriadau. Llinell i'w chyfieithu: Gleiniau Mesur Yn fras: 11/16 Modfedd Eang Gwerthoedd amnewid: 1/32 0,794 mm 1/16 1,588 mm . . . 11/16 17,463 mm . . . 1/1 25,400 mm Llinell Ganlyniad: Gleiniau Mesur Tua: 11,588 mm Modfedd Eang yn anghywir Problem: Cod yn defnyddio Gwerth o 1/16 ac yn ei ddisodli Sut alla i drwsio hyn? (Os ydw i'n defnyddio LookAt: = xl Cyfan mewn Macro arall dydw i ddim yn cael unrhyw ganlyniad)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Diolch A allaf ei wneud yn sensitif i achosion?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
OMG, dwi'n dyst i Iesu yma !!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, rwyf wedi ceisio defnyddio'r cod hwn i ddisodli rhifau lluosog gyda thestun cyfatebol. Mae gen i set ddata fawr yn amrywio o 1 -> 112000, ond pan fyddaf yn ceisio trosi 1 i'w werth llinynnol cyfatebol (ee Apple), bydd yn cyfieithu hyn tuag at bob un rhifiadol 1 yn y golofn. Felly bydd 112000 yn cael ei allbynnu fel AppleAppleOrange000. A oes ffordd yn y broses Kutools hon, fel yr offeryn darganfod / disodli yn excel, i ddod o hyd i / disodli achosion cyfatebol penodol?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae angen i chi ychwanegu'r paramedr canlynol: MatchCase:=Gwir Felly, er enghraifft, ychwanegwch ef at y llinell isod: InputRng.Replace what:=Rng.Value, amnewid:=Rng.Offset(0, 1).Gwerth, MatchCase:= Cywir Bydd hyn yn dod o hyd i ac yn disodli dim ond eitemau y MatchCase yn yr Ystod yr ydych wedi'u dewis.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Allwch chi ailysgrifennu cod i wneud yn siŵr ein bod ni'n ei gael yn iawn?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Nid oedd yn gweithio i mi, helpwch i ailysgrifennu cod, os gwelwch yn dda
Lleihawyd y sylw hwn gan y safonwr ar y wefan
a oes modd rhagosod yr amrediad Gwreiddiol i 'Tab1'!$4:$42
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Wedi gweithio fel swyn! Diolch am y cod a'r cyfarwyddiadau manwl... Rydych chi wedi arbed fy nau ddiwrnod...Duw Bendithiwch!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
FFORMAT GWREIDDIOL: 1 yn ID X 2-1/2 yn OD X 40 yn Hyd 1 yn ID X 2-1/2 yn OD X 10 yn Hyd 1 yn ID X 2-1/2 yn OD X 20 yn Hyd 1 yn ID X 2-1/2 yn OD X 10 mewn Hyd 9-1/2 yn ID X 14 yn OD X 12 mewn Hyd FFORMAT ANGEN: ID 1 x OD 2-1/2 x LG 40 MEWN ID 1 x OD 2- 1/2 x LG 10 MEWN ID 1 x OD 2-1/2 x LG 20 MEWN ID 1 x OD 2-1/2 x LG 10 MEWN ID 9-1/2 x OD 14 x LG 12 NODWCH Y FFURFLEN YR ENGHRAIFFT A RODDWYD, SUT I DDISODLIO'R FFORMAT GWREIDDIOL I'R FFORMAT GOFYNNOL MEWN EXCEL
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch i chi ei fod wedi fy helpu
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Nid yw'r Macro yn gweithio ar gyfer cyfatebiaeth union. Fel mae dau gategori ABC ac ABC 2. Darganfod a disodli ABC gyda RRR ac ABC 2 gyda TTT felly bydd Macro newid ABC 2 i RRR 2 yn lle TTT.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
I ddechrau disodli ABC 2 gyda TTT ac yna ABC gyda RRR
Lleihawyd y sylw hwn gan y safonwr ar y wefan
O dan "Ystod wreiddiol" rydych yn dangos $A$2:$A$10, sy'n awgrymu ei fod o fewn un ddalen. Sut alla i ddewis y llyfr gwaith cyfan yma?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Waw!!! Diolch yn fawr! Wedi gweithio fel gem.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yn gweithio fel swyn! Diolch yn fawr :D (Y)
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Defnyddiais y cod uchod i ddisodli rhifau ond mae 11 ac 1 yn cael eu disodli.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sub MultiFindNReplace() 'Diweddariad 20140722 Dim Rng Fel Ystod Dim InputRng Fel Ystod, ReplaceRng Fel Ystod xTitleId = "KutoolsforExcel" Set InputRng = Application.Selection Set InputRng = Application.InputBox("Original Range", xTitleRngId. =8) Gosod ReplaceRng = Application.InputBox("Amnewid Ystod :", xTitleId, Math:=8) Application.ScreenUpdating = Gau Am Bob Rng Yn ReplaceRng.Columns(1).Cells InputRng.Replace what:=Rng.Value, ailosod:=Rng.Offset(0, 1).Gwerth, lookat:=xlwhole Cais Nesaf.ScreenUpdating = Gwir Diwedd Is
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ydy!! Diolch am y cod hwn, fe weithiodd fel swyn
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Nid yw hyn yn gweithio chwaith wrth geisio disodli colofn o werthoedd rhifol gyda gwerthoedd rhifol eraill o'r tabl colyn. Dyma beth rydw i'n ei gael am geisio gwneud pethau syml i awtomeiddio taenu Excel.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch. Mae'n gweithio'n wych.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae gennyf yr un broblem, os yw 2 enw yn debyg, er enghraifft, pe bawn i eisiau rhoi 1 yn lle TEACHER ASSIST a 2 TEACHER ASSIST, byddai’n disodli ATHRAWON gydag 1 ac ATHRAWON ASSIST gydag 1 ASSIST. Sut byddwn i'n ei gael i ddisodli'r ymadrodd EXACT?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr. Roedd yn eithaf defnyddiol ac arbedodd 1 awr o lafur i mi
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae dwy golofn gyda fi, mae'r golofn 1af yn rhestr ar rif 1,2,3.... 22,23,... Ail golofn gyda rhestr o linynnau. Yn hytrach na disodli gwerth 12 gyda gwerth llinynnol. Mae'n ei ddisodli gyda llinynnau o 1 a 2. Unrhyw un yn gwybod sut i ddidoli hyn?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae gen i 3 colofn fel isod, 1 Multimedr 2 Lamp Prawf 3 Ohm Mesurydd 4 Profwr Gwrthiant 5 Dolen Nam 12 Profwr RCD 24 Symudol RCD 13 Plwm Estyniad Mae gan y drydedd golofn rif 1,2...50. Mae tua 36000 o resi. Mae'n disodli 12 gyda gwerthoedd o'r rhes 1 a 2 yn lle 12. A wyddys sut i'w drwsio?
Nid oes unrhyw sylwadau wedi'u postio yma eto
Llwytho mwy o
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir