Note: The other languages of the website are Google-translated. Back to English

Hogyan lehet egyesíteni az Excel minden második sorát / celláját?

Ha rendelkezik adatlistával, és minden más sort vagy cellát össze kíván kapcsolni az alábbiak szerint, tudja, hogyan kell elvégezni? Az Excelben képlet vagy VBA segítségével egyesítheti minden más sort vagy cellát.


Minden más sort / cellát egyesítsen az Excel képletével

Minden más sort / cellát egyesítsen a VBA-val

Az Office fül lehetővé teszi a füles szerkesztést és böngészést az Office-ban, és sokkal könnyebbé teszi a munkáját ...
A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet
  • Bármely újrafelhasználása: Adja hozzá a leggyakrabban használt vagy összetett képleteket, diagramokat és bármi mást a kedvenceihez, és a későbbiekben gyorsan használja fel újra.
  • Több mint 20 szöveges szolgáltatás: Szám kivonása a szöveges karakterláncból; Bontsa ki vagy távolítsa el a szövegek egy részét; Számok és pénznemek konvertálása angol szavakká.
  • Eszközök egyesítése: Több munkafüzet és lap egybe; Egyesítsen több cellát / sort / oszlopot adatok elvesztése nélkül; Az ismétlődő sorok és összeg összevonása.
  • Felosztott eszközök: Az adatok felosztása több lapra az érték alapján; Egy munkafüzet több Excel, PDF vagy CSV fájlhoz; Egy oszlop több oszlopra.
  • Ugrás beillesztése Rejtett / szűrt sorok; Gróf és összeg háttérszínnel; Személyre szabott e-maileket küldhet több címzettnek tömegesen.
  • Szuper szűrő: Hozzon létre speciális szűrősémákat, és alkalmazza azokat bármilyen lapra; Fajta hét, nap, gyakoriság és egyebek szerint; Szűrő félkövérrel, képletekkel, megjegyzésekkel ...
  • Több mint 300 hatékony funkció; Működik az Office 2007-2021 és 365 verziókkal; Támogatja az összes nyelvet; Könnyű üzembe helyezés a vállalkozásban vagy szervezetben.

nyíl kék jobb buborék Minden más sort / cellát egyesítsen az Excel képletével

Válasszon egy üres cellát, és írja be =OFFSET(A$1,(ROW()-1)*2,0)&" "&OFFSET(A$1,((ROW()-1)*2)+1,0) (A $ 1 jelzi a lista első adatait, szükség szerint módosíthatja), és nyomja meg az Enter billentyűt. Ezután húzza meg a kitöltő fogantyút, hogy kitöltse a képlet alkalmazásához szükséges tartományt. Lásd a képernyőképet:



nyíl kék jobb buborék Minden más sort / cellát egyesítsen a VBA-val

Ha megszokta a VBA használatát, akkor futtathatja az alábbi VBA-t is, hogy minden más sort egyesítsen.

1. Tartsa ALT gombot és nyomja meg a gombot F11 a billentyűzeten a Microsoft Visual Basic alkalmazásokhoz ablak.

2. kettyenés betétlap > Modulok, és másolja a VBA-t a modulba.

VBA: Egyesítsen minden más sort / cellát

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. kettyenés futás a VBA kód futtatásához, és a KutoolsforExcel Megjelenik a párbeszédpanel, ahol kiválaszthatja azt a cellatartományt, amelyet egyesíteni kíván minden második sorban. Lásd a képernyőképet:


4. kettyenés OK, megjelenik egy másik párbeszédpanel, amelyben kiválaszthatja az egyetlen cellát az összevont eredmény kitöltéséhez. Lásd a képernyőképet:


5. kettyenés OK, és láthatja az eredményt:



Relatív cikkek:

A megjegyzések rendezése szerint
Hozzászólások (0)
Még nincs értékelés. Legyen Ön az első, aki értékel!
Még senki sem írt megjegyzést
Kérjük, írja meg észrevételeit angol nyelven
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi