Hoppa till huvudinnehåll

Hur kopierar man och klistrar in rader eller kolumner i omvänd ordning i Excel?

Ibland kan du behöva kopiera och klistra in en lista med kolumner eller rader i omvänd ordning vertikalt eller horisontellt enligt nedanstående skärmdump. Hur kunde du hantera detta jobb snabbt och enkelt i Excel?

Kopiera och klistra in en lista med kolumner eller rader i omvänd ordning med formeln

Kopiera och klistra in ett antal kolumner eller rader i omvänd ordning med VBA-kod

Kopiera och klistra in ett antal kolumner eller rader i omvänd ordning med en fantastisk funktion


Kopiera och klistra in en lista med kolumner eller rader i omvänd ordning med formeln

Kopiera och klistra in en lista med kolumner i omvänd ordning vertikalt

Om du vill vända en lista med kolumnceller kan du använda följande formel:

Ange eller kopiera följande formel till en tom cell där du vill vända kolumnordningen:

=OFFSET($A$15,-(ROW(A1)-1),0)

Anmärkningar: I ovanstående formel, A1 är den första cellen i kolumnen, och A15 är den sista cellen i kolumnen.

Dra sedan påfyllningshandtaget ner till cellerna för att extrahera cellvärdena i omvänd ordning enligt nedanstående skärmdump:


Kopiera och klistra in en lista med rader i omvänd ordning horisontellt

För att kopiera och klistra in en lista med rader i omvänd ordning, använd följande formel:

Ange eller kopiera den här formeln till en tom cell:

=OFFSET($A$1,,COUNTA(1:1)-COLUMN(A1),)

Anmärkningar: I ovanstående formel, A1 är den första cellen i raden, och 1:1 är det radnummer som dina data hittade. Om dina data i rad 10 ska du ändra dem till 10:10.

Och dra sedan påfyllningshandtaget åt höger till cellerna som du vill använda den här formeln tills alla värden extraheras, så får du alla värdena har vänds horisontellt, se skärmdump:


Kopiera och klistra in ett antal kolumner eller rader i omvänd ordning med VBA-kod

Om du behöver kopiera och klistra in ett antal kolumner eller rader i omvänd ordning kommer jag här att introducera några VBA-koder för att lösa det snabbt och enkelt. Gör med följande steg:

Kopiera och klistra in en lista med kolumner i omvänd ordning vertikalt

1. Först bör du kopiera och klistra in dina data på en ny plats och sedan hålla ned ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra in följande kod i Modulerna Fönster.

VBA-kod: Kopiera och klistra in ett antal celler i omvänd ordning vertikalt

Sub Flipvertically()
'updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim Arr As Variant
Dim i As Integer, j As Integer, k As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Arr = WorkRng.Formula
For j = 1 To UBound(Arr, 2)
    k = UBound(Arr, 1)
    For i = 1 To UBound(Arr, 1) / 2
        xTemp = Arr(i, j)
        Arr(i, j) = Arr(k, j)
        Arr(k, j) = xTemp
        k = k - 1
    Next
Next
WorkRng.Formula = Arr
End Sub

3. Tryck sedan på F5 för att köra den här koden, och en snabbruta dyker upp för att påminna om att välja det dataområde som du vill vända vertikalt, se skärmdump:

4. Och klicka sedan på OK -knappen och dataintervallet har vänds vertikalt enligt nedanstående skärmdumpar:


Kopiera och klistra in ett antal celler i omvänd ordning horisontellt

För att vända dataområdet i horisontell ordning, använd nedanstående VBA-kod:

VBA-kod: Kopiera och klistra in ett antal celler i omvänd ordning horisontellt

Sub Fliphorizontally()
'updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim Arr As Variant
Dim i As Integer, j As Integer, k As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Arr = WorkRng.Formula
For i = 1 To UBound(Arr, 1)
    k = UBound(Arr, 2)
    For j = 1 To UBound(Arr, 2) / 2
        xTemp = Arr(i, j)
        Arr(i, j) = Arr(i, k)
        Arr(i, k) = xTemp
        k = k - 1
    Next
Next
WorkRng.Formula = Arr
End Sub

När du har kört den här koden får du följande skärmdumpar efter behov:


Kopiera och klistra in ett antal kolumner eller rader i omvänd ordning med en fantastisk funktion

Om du inte känner till ovanstående formler och VBA-koder rekommenderar jag här ett enkelt verktyg-Kutools för Excel, med dess Vänd vertikalt intervall och Vänd horisontellt område funktioner kan du vända cellområdet vertikalt och horisontellt med bara ett klick.

Tips:Att tillämpa detta Vänd vertikalt intervall och Vänd horisontellt område funktioner, först bör du ladda ner Kutools för Excel, och använd sedan funktionen snabbt och enkelt.

När du har installerat Kutools för Excel, gör så här:

Kopiera och klistra in ett antal celler i omvänd ordning horisontellt

1. Välj cellintervallet och klicka sedan på Kutools > Mätområde > Vänd vertikalt intervall > Alla (endast vändvärden), se skärmdump:

2. Och sedan har intervallet för cellvärden vänds vertikalt på en gång, se skärmdumpar:


Kopiera och klistra in ett antal celler i omvänd ordning horisontellt

1. Välj cellintervallet och klicka sedan på Kutools > Mätområde > Vänd horisontellt område > Alla (endast vändvärden), se skärmdump:

2. Och sedan har alla cellvärden i valet omvänds horisontellt omedelbart, se skärmdumpar:

Klicka för att ladda ner Kutools för Excel och gratis testversion nu!


Mer relativa kopiera och klistra in artiklar:

  • Kopiera och klistra in sammanslagna celler till enstaka celler i Excel
  • Normalt kommer de sammanslagna cellerna att klistras in direkt när du kopierar de sammanslagna cellerna och klistrar in dem i andra celler. Men du vill klistra in dessa sammanslagna celler i enstaka celler enligt följande skärmdump, så att du kan hantera data efter behov. Den här artikeln kommer jag att prata om hur man kopierar och klistrar samman sammanlagda celler till enstaka celler.
  • Kopiera en kolumn och klistra bara in de unika posterna i Excel
  • För en kolumn med många dubbletter kan du behöva få en kopia av den här listan med endast de unika värdena. Hur kan du göra för att uppnå detta? I den här artikeln tillhandahåller vi två metoder för att bara klistra in de unika posterna från en kolumnlista i Excel.
  • Kopiera data från skyddat ark
  • Om du antar att du får en Excel-fil från en annan person som med kalkylblad skyddas av användaren, nu vill du kopiera och klistra in rådata till en annan ny arbetsbok. Men data i det skyddade arket kan inte väljas och kopieras på grund av att användaren avmarkerar alternativen Välj låsta celler och Välj olåsta celler när kalkylbladet skyddas.
  • Kopiera data till ett annat kalkylblad med avancerat filter i Excel
  • Normalt kan vi snabbt använda funktionen Avancerat filter för att extrahera data från rådata i samma kalkylblad. Men ibland, när du försöker kopiera det filtrerade resultatet till ett annat kalkylblad, får du följande varningsmeddelande. I det här fallet, hur kan du hantera den här uppgiften i Excel?

  • Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
  • Sammanfoga celler / rader / kolumner och förvaring av data; Delat cellinnehåll; Kombinera duplicerade rader och summa / genomsnitt... Förhindra duplicerade celler; Jämför intervall...
  • Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
  • Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
  • Favorit och sätt snabbt in formler, Intervall, diagram och bilder; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
  • Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
  • Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
  • Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
  • Gruppering av pivottabell efter veckonummer, veckodagen och mer ... Visa olåsta, låsta celler av olika färger; Markera celler som har formel / namn...
kte-flik 201905
  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
officetab botten
Comments (3)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
OFFSET($A$15,-(ROW(A1)-1),0) and OFFSET($A$1,,COUNTA(1:1)-COLUMN(A1),) do not work when the data is not located in the first row or column.
these functions seem to work better:

Mirror row:
suppose the data is located in G11:K11
OFFSET($G$11,,COUNTA(11:11)-COUNTA($G$11:G11),) ........ OFFSET($G$11,,COUNTA(11:11)-COUNTA($G$11:K11),)

Mirror column:
suppose the data is located in E22:E26
OFFSET($E$22,ROW($E$26)-ROW(E22),0) ........ OFFSET($E$22,ROW($E$26)-ROW(E26),0)
Rated 5 out of 5
This comment was minimized by the moderator on the site
Hello Nasrin,

How are you. I tried your formulas and they work perfectly. Thanks for your share. We will take your advice. Have a great day.

Sincerely,
Mandy
This comment was minimized by the moderator on the site
Me funcionó la opción del código VBA. Muchas gracias!!!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations