Excel'de her ikinci satırı veya hücreyi nasıl birleştirebilirim?

Eğer bir veri listesi varsa ve bunların her diğer satırını veya hücresini aşağıdaki gibi birleştirmek istiyorsanız, bunu nasıl yapacağınızı biliyor musunuz? Excel'de, formül veya VBA kullanarak her diğer satırı veya hücreyi birleştirebilirsiniz.

Excel'de her ikinci satır veya hücreyi birleştirmek için formül kullanın

Excel'de her ikinci satır veya hücreyi birleştirmek için VBA kodu kullanın

Excel'de her ikinci satır veya hücreyi birleştirmek için formül kullanın

Boş bir hücre seçin, aşağıdaki formülü girin ve "Enter" tuşuna basın.

=OFFSET(A$1,(ROW()-1)*2,0)&" "&OFFSET(A$1,((ROW()-1)*2)+1,0)

Ardından, bu formülü uygulamak istediğiniz aralığı doldurmak için dolgu tutamacını aşağı çekin.

Excel'de her ikinci satır veya hücreyi birleştirmek için VBA kodu kullanın

Eğer VBA kullanmaya alışkınsanız, her diğer satırı birleştirmek için aşağıdaki VBA'yı da çalıştırabilirsiniz.

1. "ALT" tuşunu basılı tutun ve klavyeden "F11" tuşuna basarak bir "Microsoft Visual Basic for Application" penceresini açın.

2. "Ekle" > "Modül"'e tıklayın ve VBA'yı modüle kopyalayın.

VBA: Her diğer satır/hücreyi birleştir

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. VBA kodunu çalıştırmak için "Çalıştır" düğmesine tıklayın ve her diğer satırı birleştirmek istediğiniz hücre aralığını seçmek için bir "KutoolsforExcel" iletişim kutusu açılacaktır. Ekran görüntüsüne bakın:

4. "Tamam"a tıklayın, birleştirilmiş sonucu çıkarmak için tek bir hücre seçmenizi sağlayan başka bir iletişim kutusu görüntülenir. Ekran görüntüsüne bakın:

5. "Tamam"a tıklayın ve sonucu görebilirsiniz:

İlgili Makaleler:

• Excel'de her diğer veya n'inci satırı seçin
• Her diğer satırı kopyalayın
• Her diğer satırı silin