Excel'de uzun bir sütun birden çok sütuna nasıl bölünür?

Excel'de uzun sütun verileriniz varsa, bunları görüntülerken sorun yaratacaktır. Ancak şimdi bu kadar uzun listeyi Excel'de birden çok sütuna bölebilirseniz, görüntülemeyi rahatça yapacaktır.
Uzun sütunu VBA ile birden çok sütuna bölün
Kutools for Excel ile uzun bir sütunu birden çok sütuna bölün

Uzun sütunu VBA ile birden çok sütuna bölün

1. Basın Alt + F11 tuşlarını birlikte açarak Uygulamalar için Microsoft Visual Basic pencere.

2. tık Ekle > modül ve aşağıdaki VBA kodunu açılan pencereye kopyalayın.

VBA: Uzun sütunu birden çok sütuna bölün.

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. tık koşmak tuşuna basın veya tuşuna basın. F5 VBA'yı çalıştırmak için anahtar ve veri listesini seçmek için bir iletişim kutusu açılır ve ardından OK bir sonraki iletişim kutusunda bir sütunda kaç satıra ihtiyacınız olduğunu belirtmek için, ardından OK ve sonucun çıktısını almak için bir hücre seçin. Ekran görüntülerine bakın:

4. tık OK, sonra uzun sütunun birden çok sütuna bölündüğünü ve her sütunun 15 hücreye sahip olduğunu görebilirsiniz.

Kutools for Excel ile uzun bir sütunu birden çok sütuna bölün

Belki bazılarınız VBA kodunu kullanmayı sevmiyordur, neyse ki, Aralığı Dönüştür yarar Kutools for Excel uzun bir sütunu sabit sayıda sütuna hızlı ve kolay bir şekilde dönüştürmek için.

Kurduktan sonra Kutools for Excel, lütfen aşağıdaki işlemleri yapın:

1. Bölmek istediğiniz sütun verilerini seçin ve ardından Kutools > Aralık > Aralığı Dönüştür. Ekran görüntüsüne bakın:

2. Açılan iletişim kutusunda, Tek sütun aralığı seçenek, sonra kontrol et Sabit değer seçeneğini seçin ve ihtiyacınız olan sütun sayısını metin kutusuna yazın. Ekran görüntüsüne bakın:

3. tık Ok ve bölünmüş verileri ortaya çıkarmak için tek bir hücre seçin. Ekran görüntüsüne bakın:

4. tık OK işlemleri bitirmek için. Artık uzun sütun verileri üç sütuna bölünmüştür.

VBA kodundan daha mı kolay? T ileransform Aralığı yardımcı program, bir satırı aralığa, bir aralığı bir satıra veya bir sütuna dönüştürebilirsiniz.