Hitro zamenjajte vsebino dveh celic ali obsegov v Excelu

Zamenjava vsebine dveh celic ali obsegov v Excelu je pogosta zahteva pri reorganizaciji podatkov, prilagajanju postavitev ali popravljanju napak pri vnosu. Ta priročnik bo predstavil tri metode za hitro in učinkovito zamenjavo vsebine v Excelu, kar vam bo omogočilo spreminjanje podatkov brez obsežnega rezanja in lepljenja, kar lahko prihrani čas in zmanjša tveganje za napake.

Ročno zamenjajte dve sosednji vsebini celice
Preprosto zamenjajte vsebino dveh celic ali obsegov z le nekaj kliki
Zamenjajte vsebino dveh celic s kodo VBA

Ročno zamenjajte dve sosednji vsebini celice

Občasno se lahko zgodi, da boste morali zamenjati dve sosednji celici. To je mogoče storiti ročno brez veliko truda. Spodaj so opisani koraki za zamenjavo celic A4 in B4, kot je prikazano na posnetkih zaslona:

1. Izberite eno od celic, ki jih želite zamenjati: izberite na primer celico A4.
2. Drži dol Shift in postavite kazalec na desni rob izbrane celice.
3. Previdno povlecite kazalec na desni rob celice B4.
4. Ko kazalec prikaže "工", spustite miško.
   

Vsebina obeh celic bi morala biti zdaj zamenjana, kot je prikazano na spodnjem posnetku zaslona.

Preprosto zamenjajte vsebino dveh celic ali obsegov z le nekaj kliki

Za tiste, ki morajo zamenjati nesosednje celice ali obsege z uporabo dodatka Excel, kot je Kutools za Excel lahko bistveno poenostavi postopek.

Po namestitvi Kutools for Excel izberite Kutools > Območje > Zamenjaj obsege da odprete Zamenjaj obsege pogovorno okno in nato konfigurirajte na naslednji način.

1. v Swap obseg 1 izberite prvo celico ali obseg, ki ga želite zamenjati.
2. v Swap obseg 2 izberite drugo celico ali obseg, s katerim želite zamenjati.
   nasveti: Za lažjo uporabo lahko predhodno izberete oba obsega, preden odprete pogovorno okno Zamenjaj obsege. Vnaprej izbrani obsegi se bodo samodejno prikazali v "Swap obseg 1"In"Swap obseg 2" škatle oz.
3. Kliknite OK gumb.
   

Rezultat

Nato se dve izbrani celici ali obsegi takoj zamenjata. Oglejte si posnetke zaslona:

Dve nesosednji vsebini celic zamenjajte s kodo VBA

Ko sta celici nesojeni, zgornja metoda ne bo delovala. Lahko jih zamenjamo s kodo VBA.

1. Pritisnite Ctrl tipko in izberite dve sosednji celici, ki ju želite zamenjati.

2. Kliknite Razvojni>Visual Basic, Novo Microsoft Visual Basic za aplikacije okno bo prikazano, kliknite Vstavi>Moduliin vnesite naslednjo kodo v Moduli:

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. Nato kliknite za zagon kode, nato se prikaže pogovorno okno za izbiro dveh celic, med katerimi želite zamenjati. Oglejte si posnetke zaslona:

4. klik Ok v pojavnem pogovornem oknu se dve izbrani celici zamenjata. Oglejte si posnetke zaslona:

Opombe: Ta koda VBA ne more zamenjati oblikovanja obeh celic.

Demo: Zamenjajte dve naključni vsebini celic s Kutools za Excel

Povezani članek:

• Kako zamenjati vrstice ali stolpce v Excelu?