Salt la conținutul principal

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


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:

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