Hvordan flettes hver anden række / celle i Excel?
Hvis du har en liste med data, og du vil kombinere hver anden række eller celle af dem som vist som nedenfor, ved du hvordan du får det gjort? I Excel kan du bruge formel eller VBA til at flette hver anden række eller celler.
Flet hver anden række / celle med formel i Excel
Flet hver anden række / celle med VBA
Flet hver anden række / celle med formel i Excel
Vælg en tom celle, og skriv =OFFSET(A$1,(ROW()-1)*2,0)&" "&OFFSET(A$1,((ROW()-1)*2)+1,0) (A $ 1 angiver de første data på din liste, du kan ændre dem efter behov), og tryk på Enter-tasten. Træk derefter påfyldningshåndtaget for at udfylde det interval, du har brug for for at anvende denne formel. Se skærmbillede:
Flet hver anden række / celle med VBA
Hvis du er vant til at bruge VBA, kan du også køre nedenstående VBA for at flette hver anden række.
1. Holde ALT og tryk på F11 på tastaturet for at åbne en Microsoft Visual Basic til anvendelse vindue.
2. klik indsatte > Moduler, og kopier VBA til modulet.
VBA: Flet hver anden række / celle
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. klik Kør at køre VBA-koden og en KutoolsforExcel dialog vises, hvor du kan vælge en række celler, som du vil flette hver anden række. Se skærmbillede:
4. klik OK, vises en anden dialogboks, hvor du kan vælge en enkelt celle for at lægge det flettede resultat ud. Se skærmbillede:
5. klik OK, og du kan se resultatet: