Excel'de uzun bir sütunu birden fazla sütuna nasıl bölersiniz?
Uzun sütunu VBA ile birden fazla sütuna bölme
Kutools for Excel ile uzun bir sütunu birden fazla sütuna bölme
Uzun sütunu VBA ile birden fazla sütuna bölme
1. Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına birlikte basın.
2. Ekle > Modül'e tıklayın ve aşağıdaki VBA kodunu açılan pencereye kopyalayın.
VBA: Uzun sütunu birden fazla sütuna bölme.
Sub SplitColumn()
'Updateby20141106
Dim rng As Range
Dim InputRng As Range
Dim OutRng As Range
Dim xRow As Integer
Dim xCol As Integer
Dim xArr As Variant
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type: = 8)
xRow = Application.InputBox("Rows :", xTitleId)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type: = 8)
Set InputRng = InputRng.Columns(1)
xCol = InputRng.Cells.Count / xRow
ReDim xArr(1 To xRow, 1 To xCol + 1)
For i = 0 To InputRng.Cells.Count - 1
xValue = InputRng.Cells(i + 1)
iRow = i Mod xRow
iCol = VBA.Int(i / xRow)
xArr(iRow + 1, iCol + 1) = xValue
Next
OutRng.Resize(UBound(xArr, 1), UBound(xArr, 2)).Value = xArr
End Sub
3. Çalıştır düğmesine tıklayın veya F5 tuşuna basarak VBA'yı çalıştırın ve ardından veri listesini seçmek için bir iletişim kutusu açılacak, Tamam'a tıklayarak bir sonraki diyalogda bir sütunda kaç satır gerektiğini belirtin, sonra Tamam'a tıklayın ve sonuçları çıkarmak için bir hücre seçin. Ekran görüntülerine bakın:
 |
 |
 |
|
 |
4. Tıklayın Tamam, ardından uzun sütunun birden fazla sütuna bölündüğünü görebilirsiniz ve her sütun 15 hücreye sahiptir.
Kutools for Excel ile uzun bir sütunu birden fazla sütuna bölme
Belki bazılarınız VBA kodu kullanmayı sevmez, neyse ki Kutools for Excel'in Aralığı Dönüştür özelliğini kullanarak hızlı ve kolay bir şekilde uzun bir sütunu sabit sayıda sütuna dönüştürebilirsiniz.
Kutools for Excel'i yükledikten sonra lütfen aşağıdaki adımları izleyin:
1. Bölmek istediğiniz sütun verilerini seçin, ardından tıklayın Kutools > Aralık > Aralığı Dönüştür. Ekran görüntüsüne bakın:
2. Açılan diyalogda işaretleyin Tek Sütunu Aralığa Dönüştür seçeneğini işaretleyin, ardından Sabit Değer seçeneğini işaretleyin ve ihtiyacınız olan sütun sayısını metin kutusuna yazın. Ekran görüntüsüne bakın:
3. Tıklayın Tamam ve bölünmüş verileri yerleştirmek için tek bir hücre seçin. Ekran görüntüsüne bakın:
4. Tıklayın Tamam işlemleri tamamlamak için. Şimdi uzun sütun verileri üç sütuna bölünmüştür.
VBA kodundan daha kolay değil mi? Aralığı Dönüştür özelliğiyle bir satırı aralığa, bir aralığı bir satıra veya tek bir sütuna dönüştürebilirsiniz.
En İyi Ofis Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi güçlendirin ve benzersiz bir verimlilik deneyimi yaşayın. Kutools for Excel, üretkenliği artırmak ve zamandan tasarruf etmek için300'den fazla Gelişmiş Özellik sunuyor. İhtiyacınız olan özelliği almak için buraya tıklayın...
Office Tab, Ofis uygulamalarına sekmeli arayüz kazandırır ve işinizi çok daha kolaylaştırır.
- Word, Excel, PowerPoint'te sekmeli düzenleme ve okuma işlevini etkinleştirin.
- Yeni pencereler yerine aynı pencerede yeni sekmelerde birden fazla belge açıp oluşturun.
- Verimliliğinizi %50 artırır ve her gün yüzlerce mouse tıklaması azaltır!
Tüm Kutools eklentileri. Tek kurulum
Kutools for Office paketi, Excel, Word, Outlook & PowerPoint için eklentileri ve Office Tab Pro'yu bir araya getirir; Office uygulamalarında çalışan ekipler için ideal bir çözümdür.
- Hepsi bir arada paket — Excel, Word, Outlook & PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans — dakikalar içinde kurulun (MSI hazır)
- Birlikte daha verimli — Ofis uygulamalarında hızlı üretkenlik
- 30 günlük tam özellikli deneme — kayıt yok, kredi kartı yok
- En iyi değer — tek tek eklenti almak yerine tasarruf edin