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
- 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.
Î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:
Î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:
