Ana içeriğe atla

Bir sütunu Excel'deki diğer satırlara nasıl bölerim?

doc diğer her satırı 1 böl

Örneğin, uzun bir veri listem var ve şimdi, aşağıdaki ekran görüntüsü gibi sütunu her iki satıra eşit olarak iki listeye bölmek istiyorum. Excel'de bu görevin üstesinden gelmenin iyi bir yolu var mı?

Formüller ile her iki satırda bir sütunu bölme

VBA kodu ile her iki satıra bir sütunu bölün

Kutools for Excel ile bir sütunu diğer satırlara bölün


ok mavi sağ balon Formüller ile her iki satırda bir sütunu bölme

Aşağıdaki formüller, bir sütunu her iki satıra göre hızlı bir şekilde iki sütuna ayırmanıza yardımcı olabilir, lütfen aşağıdaki işlemleri yapın:

1. Bu formülü boş bir hücreye (C2) girin, örneğin, =INDEX($A$2:$A$13,ROWS(C$1:C1)*2-1), ekran görüntüsüne bakın :

doc diğer her satırı 2 böl

2. Ardından, hatalar hücrelerde görüntülenene kadar doldurma tutamacını aşağı doğru sürükleyin, ekran görüntüsüne bakın:

doc diğer her satırı 3 böl

3. Sonra D2 hücresine başka bir formül girin, =INDEX($A$2:$A$13,ROWS(D$1:D1)*2)ve hata değerleri görünene kadar doldurma tutamacını hücrelere sürükleyin ve sütun değerleri her iki satırda iki sütuna bölündü, ekran görüntüsüne bakın:

doc diğer her satırı 4 böl


ok mavi sağ balon VBA kodu ile her iki satıra bir sütunu bölün

VBA kodu ile ilgileniyorsanız burada, bu sorunu çözmeniz için bir koddan bahsedebilirim.

1. Basılı tutun ALT + F11 Excel'de anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic pencere.

2. tıklayın Ekle > modülve aşağıdaki kodu modül Pencere.

VBA kodu: Bir sütunu her iki satıra iki sütuna bölün

Sub SplitEveryOther()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
Dim index As Integer
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)
Set OutRng = OutRng.Range("A1")
num1 = 1
num2 = 1
For index = 1 To InputRng.Rows.Count
    If index Mod 2 = 1 Then
        OutRng.Cells(num1, 1).Value = InputRng.Cells(index, 1)
        num1 = num1 + 1
    Else
        OutRng.Cells(num2, 2).Value = InputRng.Cells(index, 1)
        num2 = num2 + 1
    End If
Next
End Sub	

3. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için bir anahtar ve bölmek istediğiniz veri aralığını seçmenizi hatırlatmak için bir istem kutusu açılır, ekran görüntüsüne bakın:

doc diğer her satırı 5 böl

4. Ve tıklayın OK, sonucu koymak için bir hücre seçmenize izin vermek için başka bir istem kutusu açılır, ekran görüntüsüne bakın:

doc diğer her satırı 6 böl

5. Sonra tıklayın OKve sütun, her satırda iki sütuna bölünmüştür. Ekran görüntüsüne bakın:

doc diğer her satırı 7 böl


ok mavi sağ balon Kutools for Excel ile bir sütunu diğer satırlara bölün

Daha fazla yeni şeyler öğrenmek istiyorsanız, güçlü bir araç önerebilirim -Kutools for Excel, Onun ile Aralığı Dönüştür yardımcı program, hızlı bir şekilde tek bir satırı veya sütunu bir hücre aralığına dönüştürebilir ve bunun tersini de yapabilirsiniz.

Kutools for Excel : 300'den fazla kullanışlı Excel eklentisi ile 30 günde sınırlama olmaksızın ücretsiz deneyin

Kurduktan sonra Kutools for Excellütfen şunları yapın :( Kutools for Excel'i Şimdi Ücretsiz İndirin )

1. Her iki satıra göre iki sütuna bölmek istediğiniz sütun verilerini seçin.

2. Sonra tıklayın Kutools > Aralık > Aralığı Dönüştür, ekran görüntüsüne bakın:

3. In Aralığı Dönüştür iletişim kutusunu seçin Tek sütun aralığı altında Dönüştürme türü, Daha sonra seçmek Sabit değer Ve girin 2 kutuya Kayıt başına satır bölümü, ekran görüntüsüne bakın:

doc diğer her satırı 9 böl

4. Sonra tıklayın Ok düğmesi ve sonucun çıktısını almak istediğiniz bir hücreyi seçmenizi hatırlatmak için bir istem kutusu açılır, ekran görüntüsüne bakın:

doc diğer her satırı 10 böl

5. tıklayın OKliste verileri her iki satırda iki sütuna bölünmüştür.

Bu Transform Aralığı aracı hakkında daha fazla bilgi edinmek için tıklayın.

Kutools for Excel'i Şimdi Ücretsiz İndirin

En İyi Ofis Üretkenlik Araçları

🤖 Kutools AI Yardımcısı: Aşağıdakilere dayalı olarak veri analizinde devrim yaratın: Akıllı Yürütme   |  Kodunu oluşturun  |  Özel Formüller Oluşturun  |  Verileri Analiz Edin ve Grafikler Oluşturun  |  Kutools İşlevlerini Çağır...
Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
Süper Arama: Çoklu Ölçütlü VLookup    Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu    Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz    E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
En İyi 15 Araç Seti12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50+ Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar.  En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...

Açıklama


Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How to do the opposite of this? Get two column info in one row ?
This comment was minimized by the moderator on the site
Hi, Jas,
To do the opposite of this, to convert two columns data into one single column, you should apply the below VBA code:

Sub ConvertRangeToColumn()
Dim Range1 As Range, Range2 As Range, Rng As Range
Dim rowIndex As Integer
xTitleId = "KutoolsforExcel"
Set Range1 = Application.Selection
Set Range1 = Application.InputBox("Source Ranges:", xTitleId, Range1.Address, Type:=8)
Set Range2 = Application.InputBox("Convert to (single cell):", xTitleId, Type:=8)
rowIndex = 0
Application.ScreenUpdating = False
For Each Rng In Range1.Rows
Rng.Copy
Range2.Offset(rowIndex, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
rowIndex = rowIndex + Rng.Columns.Count
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Please try, hope it can help you!
This comment was minimized by the moderator on the site
As a workaround, you can do the following: Using the above example, 1. Type "=a2" in c2 and "=a3" in d3. 2. Now select c2 through d3. 3. Drag the fill handle parallel to all the data. 4. Now delete cell a2 and shift cells up. 5. Now we need to convert the formula results to the calculated values. That's easily done by copying all the data including the blank rows and pasting the values right on top of itself. 6. Now you can simply sort any of the column alphabetically to bring all the data up.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations