Hur slår man samman varannan rad / cell i Excel?
Om du har en lista med data och vill kombinera varannan rad eller cell av dem som visas nedan, vet du hur du gör det? I Excel kan du använda formel eller VBA för att slå samman varannan rad eller celler.
Slå ihop varannan rad / cell med formel i Excel
Slå ihop varannan rad / cell med VBA
- Återanvänd allt: Lägg till de mest använda eller komplexa formlerna, diagrammen och allt annat till dina favoriter och återanvänd dem snabbt i framtiden.
- Mer än 20 textfunktioner: Extrahera nummer från textsträng; Extrahera eller ta bort en del av texterna; Konvertera siffror och valutor till engelska ord.
- Sammanfoga verktyg: Flera arbetsböcker och ark till en; Slå ihop flera celler / rader / kolumner utan att förlora data; Slå samman duplicerade rader och summa.
- Dela verktyg: Dela data i flera ark baserat på värde; En arbetsbok för flera Excel-, PDF- eller CSV-filer; En kolumn till flera kolumner.
- Klistra över Dolda / filtrerade rader; Räkna och summa av bakgrundsfärg; Skicka personliga e-postmeddelanden till flera mottagare i bulk.
- Superfilter: Skapa avancerade filterscheman och tillämpas på alla ark; Svart per vecka, dag, frekvens och mer; Filter med fetstil, formler, kommentarer ...
- Mer än 300 kraftfulla funktioner; Fungerar med Office 2007-2021 och 365; Stöder alla språk; Enkel implementering i ditt företag eller organisation.
Slå ihop varannan rad / cell med formel i Excel
Välj en tom cell och skriv =OFFSET(A$1,(ROW()-1)*2,0)&" "&OFFSET(A$1,((ROW()-1)*2)+1,0) (A $ 1 anger de första uppgifterna i din lista, du kan ändra dem efter behov) och tryck på Enter-tangenten. Dra sedan fyllningshandtaget för att fylla det intervall du behöver för att tillämpa denna formel. Se skärmdump:
Slå ihop varannan rad / cell med VBA
Om du är van vid att använda VBA kan du också köra nedanstående VBA för att slå samman varannan rad.
1. Håll ALT knappen och tryck på F11 på tangentbordet för att öppna en Microsoft Visual Basic för applikation fönster.
2. klick Insert > Modulernaoch kopiera VBA till modulen.
VBA: Slå ihop varannan rad / cell
Sub CombineCells()
'Updateby20140314
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
For i = 1 To InputRng.Rows.Count Step 2
For j = 1 To InputRng.Columns.Count
OutRng.Value = InputRng.Cells(i, j).Value & InputRng.Cells(i + 1, j).Value
Set OutRng = OutRng.Offset(0, 1)
Next
Set OutRng = OutRng.Offset(1, (InputRng.Columns.Count * -1))
Next
End Sub
3. klick run för att köra VBA-koden och a KutoolsforExcel dialogruta dyker upp för att du ska välja ett cellområde som du vill slå samman varannan rad. Se skärmdump:
4. klick OK, visas en annan dialogruta där du kan välja en enda cell för att lägga ut det sammanslagna resultatet. Se skärmdump:
5. klick OK, och du kan se resultatet:
