Excel'de uzun bir sütunu birden fazla sütuna nasıl bölebilirim?
Uzun sütunu VBA ile birden çok sütuna bölme
Uzun bir sütunu Kutools for Excel ile birden çok sütuna bölme
Uzun sütunu VBA ile birden çok sütuna bölme
1. Alt + F11 tuşlarına aynı anda basarak Microsoft Visual Basic for Applications penceresini açın.
2. Ekle > Modül seçeneğine tıklayın ve açılan pencereye aşağıdaki VBA kodunu kopyalayın.
VBA: Uzun bir 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 ya da VBA'yı çalıştırmak için F5 tuşuna basın. Açılan iletişim kutusunda veri listesini seçin ve ardından Tamam düğmesine tıklayın. Sonraki iletişim kutusunda her sütunda kaç satır olmasını istediğinizi belirtin ve yine Tamam düğmesine tıklayarak sonucu çıktılamak istediğiniz hücreyi seçin. Ekran görüntülerine bakın:
 |
 |
 |
|
 |
4. Tamam düğmesine tıkladıktan sonra, uzun sütunun birden çok sütuna bölündüğünü ve her bir sütunun 15 hücre içerdiğini göreceksiniz.
Uzun bir sütunu Kutools for Excel ile birden çok sütuna bölme
Belki bazılarınız VBA kodu kullanmayı sevmiyorsunuzdur. Neyse ki, uzun bir sütunu sabit sayıda sütuna hızlı ve kolayca dönüştürmek için Aralığı Dönüştür yardımcısını Kutools for Excel ile kullanabilirsiniz.
Kutools for Excel yüklendikten sonra aşağıdaki adımları uygulayın:Kutools for Excel’i seçin.
1. Bölünmesini istediğiniz sütun verisini seçin, ardından Kutools > Aralık > Aralığı Dönüştür seçeneğine tıklayın. Ekran görüntüsüne bakın:
2. Açılan iletişim kutusunda Tek Sütunu Aralığa Dönüştür seçeneğini işaretleyin, ardından Sabit Değer seçeneğini işaretleyip metin kutusuna ihtiyacınız olan sütun sayısını girin. Ekran görüntüsüne bakın:
3. Tamam düğmesine tıklayın ve Veriyi Böl sonuçlarını çıktılamak için tek bir hücre seçin. Ekran görüntüsüne bakın:
4. İşlemleri tamamlamak için Tamam düğmesine tıklayın. Artık uzun sütun verisi üç sütuna bölünmüştür.
VBA kodundan daha kolay değil mi? Aralığı Dönüştür yardımcısıyla bir satırı aralığa, bir aralığı satıra ya da tek bir sütuna dönüştürebilirsiniz.
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