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

Cum se îmbină celelalte rânduri / celule din Excel?

Dacă aveți o listă de date și doriți să combinați toate celelalte rânduri sau celule ale acestora așa cum se arată mai jos, știți cum să le faceți? În Excel, puteți utiliza formula sau VBA pentru a îmbina toate celelalte rânduri sau celule.


Îmbinați celelalte rânduri / celule cu formulă în Excel

Îmbinați celelalte rânduri / celule cu VBA

Fila Office Activați editarea și navigarea cu file în Office și faceți munca mult mai ușoară ...
Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%
  • Reutilizați orice: Adăugați cele mai utilizate sau complexe formule, diagrame și orice altceva la preferatele dvs. și reutilizați-le rapid în viitor.
  • Peste 20 de caracteristici text: Extrageți numărul din șirul de text; Extrageți sau eliminați o parte din texte; Conversia numerelor și valutelor în cuvinte în limba engleză.
  • Instrumente de îmbinare: Mai multe cărți de lucru și foi într-unul; Combinați mai multe celule / rânduri / coloane fără a pierde date; Combinați rândurile duplicate și suma.
  • Instrumente divizate: Împărțiți datele în mai multe foi bazate pe valoare; Un registru de lucru pentru mai multe fișiere Excel, PDF sau CSV; O coloană la mai multe coloane.
  • Lipiți săriți Rânduri ascunse / filtrate; Număr și sumă de Culoarea fundalului; Trimiteți e-mailuri personalizate către mai mulți destinatari în bloc.
  • Super Filtru: Creați scheme avansate de filtrare și aplicați oricăror foi; Sortează pe săptămână, zi, frecvență și multe altele; Filtru prin îndrăznețe, formule, comentarii ...
  • Peste 300 de caracteristici puternice; Funcționează cu Office 2007-2021 și 365; Suporta toate limbile; Implementare ușoară în întreprinderea sau organizația dvs.

săgeată albastru dreapta balon Îmbinați celelalte rânduri / celule cu formulă în Excel

Selectați o celulă necompletată și tastați =OFFSET(A$1,(ROW()-1)*2,0)&" "&OFFSET(A$1,((ROW()-1)*2)+1,0) (A $ 1 indică primele date din listă, le puteți modifica după cum doriți) și apăsați tasta Enter. Apoi trageți mânerul de umplere pentru a umple intervalul de care aveți nevoie pentru a aplica această formulă. Vedeți captura de ecran:



săgeată albastru dreapta balon Îmbinați celelalte rânduri / celule cu VBA

Dacă sunteți obișnuit să utilizați VBA, puteți rula și VBA de mai jos pentru a îmbina fiecare rând.

1. ține ALT și apăsați F11 pe tastatură pentru a deschide un Microsoft Visual Basic pentru aplicație fereastră.

2. clic Insera > Module, și copiați VBA în modul.

VBA: îmbinați celelalte rânduri / celule

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. clic Alerga pentru a rula codul VBA și a KutoolsforExcel apare o fereastră de dialog pentru a selecta o gamă de celule pe care doriți să le îmbinați la fiecare rând. Vedeți captura de ecran:


4. clic OK, se afișează un alt dialog pentru a selecta o singură celulă pentru a scoate rezultatul fuzionat. Vedeți captura de ecran:


5. clic OK, și puteți vedea rezultatul:



Articole relative:

Comentarii (0)
Încă nu există evaluări. Fii primul care evaluează!
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL