Excel'de her ikinci satırı veya hücreyi nasıl birleştirirsiniz?
Bir veri listeniz varsa ve aşağıda gösterildiği gibi her diğer satırı veya hücresini birleştirmek istiyorsanız, bunu nasıl yapacağınızı biliyor musunuz? Excel’de her diğer satırı veya hücreyi birleştirmek için formül ya da VBA kullanabilirsiniz.
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ığa kadar doldurma tutamacını aşağı doğru sürükleyin.
Excel'de her ikinci satırı veya hücreyi birleştirmek için VBA kodu kullanın
VBA kullanmaya alışkınsanız, her iki satırı birleştirmek için aşağıdaki VBA kodunu da çalıştırabilirsiniz.
1. "ALT" tuşunu basılı tutarken klavyeden "F11" tuşuna basın; böylece "Microsoft Visual Basic for Applications" penceresi açılır.
2. "Insert" (Ekle) > "Module" (Modül) seçeneğine tıklayıp VBA kodunu 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 "Run" (Çalıştır) seçeneğine tıklayın; ardından her diğer satırı birleştirmek istediğiniz hücre aralığını seçmeniz için bir "Kutools for Excel" iletişim kutusu açılacaktır. Ekran görüntüsüne bakın:
4. "Tamam" seçeneğine tıklayın; ardından birleştirilmiş sonucu yerleştirmek için tek bir hücre seçmenizi sağlayan başka bir iletişim kutusu açılır. Ekran görüntüsüne bakın:
5. "OK" (Tamam) seçeneğine tıkladığınızda, sonucu görebilirsiniz:
İlgili Makaleler:
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar