Excel'deki diğer her satır / hücre nasıl birleştirilir?
Bir veri listeniz varsa ve bunların her satırını veya hücresini aşağıda gösterildiği gibi birleştirmek istiyorsanız, bunu nasıl yapacağınızı biliyor musunuz? Excel'de, diğer tüm satırları veya hücreleri birleştirmek için formül veya VBA kullanabilirsiniz.
Diğer her satırı / hücreyi Excel'deki formülle birleştirin
Diğer her satırı / hücreyi VBA ile birleştirin
Diğer her satırı / hücreyi Excel'deki formülle birleştirin
Boş bir hücre seçin ve yazın =OFFSET(A$1,(ROW()-1)*2,0)&" "&OFFSET(A$1,((ROW()-1)*2)+1,0) (1 $, listenizdeki ilk veriyi gösterir, ihtiyaç duyduğunuzda değiştirebilirsiniz) ve Enter tuşuna basın. Ardından, bu formülü uygulamak için ihtiyacınız olan aralığı doldurmak için doldurma tutamacını sürükleyin. Ekran görüntüsüne bakın:
Diğer her satırı / hücreyi VBA ile birleştirin
VBA kullanmaya alışkınsanız, diğer her satırı birleştirmek için aşağıdaki VBA'yı da çalıştırabilirsiniz.
1. Ambar ALT tuşuna basın ve tuşuna basın. F11 klavyede bir Uygulama için Microsoft Visual Basic pencere.
2. tık Ekle > modülve 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. tık koşmak VBA kodunu çalıştırmak için ve KutoolsforExcel Her iki satırı birleştirmek istediğiniz bir hücre aralığını seçmeniz için iletişim kutusu açılır. Ekran görüntüsüne bakın:
4. tık OK, birleştirilmiş sonucu çıkarmak için tek bir hücre seçmeniz için başka bir iletişim kutusu görüntülenir. Ekran görüntüsüne bakın:
5. tık OKve sonucu görebilirsiniz:
