Gå til hovedindhold

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


pil blå højre boble 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:



pil blå højre boble 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:



Relative artikler:

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations