Uzun bir listeyi Excel'de eşit gruplara nasıl ayırabilirim?
Aşağıdaki ekran görüntüsü gibi birden çok eşit gruba bölünmesi gereken uzun bir veri listeniz varsa, bu görevi Excel'de hızlı ve kolay bir şekilde nasıl halledebilirsiniz?
Uzun bir listeyi VBA kodu ile birden çok eşit gruba ayırın
Kutools for Excel ile uzun bir listeyi birden çok eşit gruba ayırın
Uzun bir listeyi VBA kodu ile birden çok eşit gruba ayırın
Verileri tek tek kopyalayıp yapıştırmak dışında, aşağıdaki VBA kodu da size bir iyilik yapabilir, lütfen aşağıdaki adımları uygulayın:
1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. tıklayın Ekle > modülve aşağıdaki kodu modül Pencere.
VBA kodu: Uzun bir listeyi birden çok eşit gruba ayırın
Sub SplitIntoCellsPerColumn()
'updateby Extendoffice
Dim xRg As Range
Dim xOutRg As Range
Dim xCell As Range
Dim xTxt As String
Dim xOutArr As Variant
Dim I As Long, K As Long
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Sel:
Set xRg = Nothing
Set xRg = Application.InputBox("please select data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "does not support multiple selections, please select again", vbInformation, "Kutools for Excel"
GoTo Sel
End If
If xRg.Columns.Count > 1 Then
MsgBox "does not support multiple columns,please select again", vbInformation, "Kutools for Excel"
GoTo Sel
End If
Set xOutRg = Application.InputBox("please select a cell to put the result:", "Kutools for Excel", , , , , , 8)
If xOutRg Is Nothing Then Exit Sub
I = Application.InputBox("the number of cell per column:", "Kutools for Excel", , , , , , 1)
If I < 1 Then
MsgBox "incorrect enter", vbInformation, "Kutools for Excel"
Exit Sub
End If
ReDim xOutArr(1 To I, 1 To Int(xRg.Rows.Count / I) + 1)
For K = 0 To xRg.Rows.Count - 1
xOutArr(1 + (K Mod I), 1 + Int(K / I)) = xRg.Cells(K + 1)
Next
xOutRg.Range("A1").Resize(I, UBound(xOutArr, 2)) = xOutArr
End Sub
3. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için anahtar ve açılan kutuda, lütfen birden fazla gruba ayırmak istediğiniz sütunu seçin, ekran görüntüsüne bakın:
4. Ve tıklayın OK düğmesini, ardından aşağıdaki istem kutusunda sonucu bulmak istediğiniz hücreyi seçin, ekran görüntüsüne bakın:
5. tıklayın OKve lütfen komut kutusuna sütun başına bölmek istediğiniz hücre sayısını girin, ekran görüntüsüne bakın:
6. Son olarak, OK kodu bitirmek için ve seçilen liste verileri ihtiyaç duyduğunuzda birden fazla eşit gruba bölünmüştür, ekran görüntüsüne bakın:
Kutools for Excel ile uzun bir listeyi birden çok eşit gruba ayırın
Yüklediyseniz Kutools for Excel, Onun ile Aralığı Dönüştür özelliği, uzun bir listeyi hızlı bir şekilde birden çok sütun ve satıra bölebilirsiniz, ayrıca birden çok sütunu tek bir uzun listede birleştirebilirsiniz.
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 aşağıdaki işlemleri yapın:
1. Bölmek istediğiniz uzun listeyi seçin ve ardından Kutools > Aralık > Aralığı Dönüştür, ekran görüntüsüne bakın:
2. In Aralığı Dönüştür iletişim kutusunu seçin Tek sütun aralığı altında Dönüştürme türü bölümünü ve ardından kontrol edin Sabit değer ve kutudaki satır başına hücre sayısını belirtin, ekran görüntüsüne bakın:
3. Sonra tıklayın Okve sonucu istem kutusunda bulmak istediğiniz bir hücre seçin, ekran görüntüsüne bakın:
4. Ve tıklayın OK düğmesine tıkladığınızda listedeki veriler ihtiyaç duyduğunuzda birden çok eşit gruba bölünmüştür.
Kutools for Excel'i şimdi indirin ve ücretsiz deneyin!
Demo: Kutools for Excel ile uzun bir listeyi birden çok eşit gruba ayırın
En İyi Ofis Üretkenlik Araçları
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...
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!