Excel'de uzun bir sütunu birden fazla sütuna nasıl bölersiniz?

Excel'de uzun bir sütun verisi varsa, bunları görüntülemek zor olabilir. Ancak şimdi bu uzun listeyi Excel'de birden fazla sütuna bölebilirseniz, görüntüleme işlemi daha rahat hale gelecektir.
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.