Hur infogar jag tomma rader när värdet ändras i Excel?
 |
 |
 |
Om du antar att du har en rad data och nu vill du infoga tomma rader mellan data när värdet ändras, så att du kan separera samma sekventiella värden i en kolumn som följande skärmdumpar visas. I den här artikeln kommer jag att prata om några knep för att lösa detta problem.
Infoga tomma rader när värdet ändras med delsumma-funktionen
Infoga tomma rader när värdet ändras med hjälpkolumner
Infoga tomma rader när värdet ändras med VBA-kod
Infoga specifikt antal tomma rader när värdet ändras med en kraftfull funktion
Infoga tomma rader när värdet ändras med delsumma-funktionen
Med Summa funktion kan du infoga tomma rader mellan data när värdet ändras enligt följande steg:
1. Välj det dataområde du vill använda.
2. Klicka Data > Summa att öppna Summa dialogrutan och i Summa gör följande alternativ:
 |
1: Välj kolumnnamnet som du vill infoga tomma rader baserat på när värdet ändras under Vid varje byte i avsnitt;
2: Välj Att Räkna från Använd funktionen rullgardinsmeny;
3: Kontrollera kolumnnamnet som du vill infoga delsumman till i Lägg till delsumma till listrutan
|
3. Klicka sedan OK, delsumminraderna har infogats mellan de olika produkterna och kontursymbolerna visas till vänster om tabellen, se skärmdump:
4. Och klicka sedan på siffran 2 högst upp på kontursymbolen för att bara visa delsumminraderna.
5. Välj sedan data för delsumman och tryck på Alt +; snabbtangenter för att endast välja de synliga raderna, se skärmdump:
6. När du bara har valt de synliga raderna, tryck sedan på Radera på tangentbordet och alla delsumma rader har tagits bort.
7. Klicka sedan på någon annan cell och gå tillbaka Data > Dela upp > Rensa konturer för att ta bort konturerna, se skärmdump:
8. Kontursymbolerna har rensats på en gång och du kan se att tomma rader har infogats mellan data när värdet ändras, se skärmdump:
9. Äntligen kan du radera kolumn A efter behov.
Infoga sidbrytning, tomma rader, nedre kant eller fyllfärg när värdet ändras snabbt
Om du har Kutools för Excel's Skillnad mellan skillnader kan du snabbt infoga sidbrytning, tomma rader, nedre kant eller fylla färg när värdet ändras efter behov. Se nedanstående demo. Klicka för att ladda ner Kutools för Excel!
Infoga tomma rader när värdet ändras med hjälpkolumner
Med hjälpkolumnerna kan du först infoga formel och sedan använda Sök och ersätt funktion, äntligen infoga de tomma raderna mellan de ändrade värdena. Gör så här:
1. Ange den här formeln i en tom cell C3 = A3 = A2och i cell D4 anger du denna formel = A4 = A3, se skärmdump:
2. Välj sedan C3: D4 och dra fyllningshandtaget över till det intervall som du vill använda dessa formler, så får du Sant or Falsk i cellerna, se skärmdump:
3. Och tryck sedan på Ctrl + F nycklar för att öppna Sök och ersätt dialogrutan, i dialogrutan poppade ut, ange FALSK i Hitta det textruta under hitta fliken och klicka på Tillbehör för att expandera den här dialogrutan och välj Värden från Titta in rullgardinsmeny, se skärmdump:
4. Klicka Hitta alla och tryck sedan på Ctrl + A för att välja alla resultat för att hitta, har alla FALSE-celler valts på en gång, se skärmdump:
6. Stäng Sök och ersätt dialog, nästa steg, kan du infoga tomma rader genom att klicka Start > Insert > Infoga arkrader, och tomma rader har infogats i data när värdet ändras baserat på kolumn A, se skärmdumpar:
 |
|
 |
7. Slutligen kan du radera hjälpkolumnen C och D efter behov.
Infoga tomma rader när värdet ändras med VBA-kod
Om du är trött på att använda ovanstående metoder, här är en kod som också kan hjälpa dig att infoga tomma rader mellan de ändrade värdena på en gång.
1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic for Applications-fönstret.
2. Klicka Insert > Modulernaoch klistra in följande kod i Modulfönster.
VBA-kod: Infoga tomma rader när värdet ändras
Sub InsertRowsAtValueChange()
'Update by Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
For i = WorkRng.Rows.Count To 2 Step -1
If WorkRng.Cells(i, 1).Value <> WorkRng.Cells(i - 1, 1).Value Then
WorkRng.Cells(i, 1).EntireRow.Insert
End If
Next
Application.ScreenUpdating = True
End Sub
3. Tryck sedan på F5 nyckel för att köra den här koden, och en snabbruta dyker upp för att låta dig välja en kolumninformation som du vill infoga tomma rader när värdet ändras som du baserar på, se skärmdump:
4. Och klicka sedan på OKhar de tomma raderna infogats mellan data när värdet ändras baserat på kolumn A.
Infoga specifikt antal tomma rader när värdet ändras med en kraftfull funktion
Om du prövas med ovanliga besvärliga metoder kommer jag här att presentera ett användbart verktyg, Kutools för Excel's Skillnad mellan skillnader kan hjälpa dig att infoga sidbrytning, tomma rader, nedre kant eller fylla färg när cellvärdet ändras snabbt och enkelt.
Tips:Att tillämpa detta Skillnad mellan skillnader funktionen, 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:
1. Klicka Kutools > bildad > Skillnad mellan skillnader, se skärmdump:
2. I Skillnad på nyckelkolumn dialogrutan, gör följande:
- Välj det dataområde som du vill använda och välj sedan nyckelkolumnen som du vill infoga tomma rader baserat på;
- Kontrollera sedan Tom rad alternativ från Tillbehör avsnittet och ange antalet tomma rader som du vill infoga.
3. Klicka sedan Ok knappen och det specifika antalet tomma rader har infogats i data om cellvärdet ändras, se skärmdumpar:
 |
|
 |
Klicka för att ladda ner Kutools för Excel och gratis testversion nu!
De bästa Office-produktivitetsverktygen
Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%
- återanvändning: Sätt snabbt i komplexa formler, diagram och allt som du har använt tidigare; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
- 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 utan att förlora data; Delat cellinnehåll; Kombinera duplicerade rader / kolumner... 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 ...
- 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...
- Mer än 300 kraftfulla funktioner. Stöder Office / Excel 2007-2021 och 365. Stöder alla språk. Enkel implementering i ditt företag eller organisation. Fullständiga funktioner 30 dagars gratis provperiod. 60 dagars pengarna tillbaka-garanti.
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- 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!
