Cum se schimbă rapid conținutul a două celule din Excel?
Când manipulăm o foaie de lucru, poate fi necesar să schimbăm conținutul a două celule uneori. În mod normal, majoritatea dintre noi știm doar „să tăiem, să lipim și să copiem” pentru a schimba conținutul, dar consumă mult timp. Vom vorbi despre cum să schimbăm rapid conținutul în celule în Excel.
Schimbați manual două conținuturi de celule alăturate
Schimbați două conținuturi de celule nonadiacente cu codul VBA
Schimbați ușor două conținuturi de celule aleatorii cu doar câteva clicuri
Schimbați manual două conținuturi de celule alăturate
Uneori, există două celule alăturate care trebuie schimbate. O putem face manual cu ușurință. Uitați-vă la următoarea captură de ecran, vreau să schimb celula A4 și B4, vă rugăm să faceți următoarele:
1. Selectați celula pe care doriți să o schimbați. În acest exemplu, selectați celula A4.
2. presa Schimba și puneți cursorul la marginea dreaptă.
3. Apoi trageți cursorul la marginea dreaptă a celulei B4.
4. Când se afișează „工”, Eliberați mouse-ul.
5. Și cele două conținuturi de celule au fost schimbate. Vedeți captura de ecran:
Cu această metodă, putem schimba și două rânduri sau coloane alăturate.
Schimbați rapid conținutul a două celule sau intervale în Excel:
Kutools pentru Excel's Intervalele de schimb utilitarul vă ajută să schimbați cu ușurință două celule sau intervale specificate simultan în Excel, după cum se arată în demonstrația de mai jos.
Descărcați și încercați acum! (traseu gratuit de 30 de zile)
Schimbați două conținuturi de celule nonadiacente cu codul VBA
Când cele două celule nu sunt adiacente, metoda de mai sus nu va funcționa. Le putem schimba cu codul VBA.
1. apasă pe Ctrl tasta și selectați cele două celule nonadiacente pe care doriți să le schimbați.
2. Clic Dezvoltator>Visual Basic, un nou Microsoft Visual Basic pentru aplicații fereastra va fi afișată, faceți clic pe Insera>Moduleși introduceți următorul cod în Module:
Sub SwapTwoRange()
'Updateby20131120
Dim Rng1 As Range, Rng2 As Range
Dim arr1 As Variant, arr2 As Variant
xTitleId = "KutoolsforExcel"
Set Rng1 = Application.Selection
Set Rng1 = Application.InputBox("Range1:", xTitleId, Rng1.Address, Type:=8)
Set Rng2 = Application.InputBox("Range2:", xTitleId, Type:=8)
Application.ScreenUpdating = False
arr1 = Rng1.Value
arr2 = Rng2.Value
Rng1.Value = arr2
Rng2.Value = arr1
Application.ScreenUpdating = True
End Sub
3. Apoi apasa pentru a rula codul, apoi se afișează un dialog pentru a selecta cele două celule între care doriți să schimbați. Vedeți capturi de ecran:
4. clic Ok în dialogul pop-up, cele două celule selectate sunt schimbate. Vedeți capturi de ecran:
note: Acest cod VBA nu poate schimba formatarea celor două celule.
Schimbați ușor două conținuturi de celule aleatorii cu doar câteva clicuri
cu Kutools pentru Excel's Intervalele de schimb utilitar, nu numai că putem schimba două celule, rânduri sau coloane alăturate, dar putem schimba cu ușurință două celule, rânduri sau coloane nonadiacente.
Înainte de a aplica Kutools pentru Excel, Vă rugăm să descărcați-l și instalați-l mai întâi.
1. clic Kutools > Gamă > Intervalele de schimb, vezi captura de ecran:
2. În Intervalele de schimb casetă de dialog, trebuie să:
- (1) faceți clic pe primul buton în Interval de schimb 1 caseta pentru a selecta celulele pe care doriți să le schimbați.
- (2) faceți clic pe al doilea buton din Interval de schimb 2 pentru a selecta celulele cu care veți schimba.
sfaturi: Puteți selecta cele două intervale înainte de a aplica caracteristica, apoi puteți vedea că cele două intervale selectate sunt afișate separat în casetele Swap Range 1 și Swap Range 2. - (3) Faceți clic pe OK butonul.
Apoi, două celule sau intervale selectate sunt schimbate imediat. Vedeți capturi de ecran:
Dacă doriți să aveți o perioadă de încercare gratuită (30 de zile) a acestui utilitar, vă rugăm să faceți clic pentru a-l descărca, și apoi mergeți pentru a aplica operația conform pașilor de mai sus.
Demo: Schimbați două conținuturi de celule aleatorii cu Kutools pentru Excel
Articol asociat:
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!