satırları matrise dönüştürme

[muzzymania]

5000 satırlık bir verim var 1 sutunda .....bende onu 100 e 50 lik bir matrise dönüştürmek istiyorum nasıl yapabilirim

 

[Merhum İdris SERDAR]

.

Aşağıdaki kodları kullanabilirsiniz.

Sub birdenfazlasutuna()
    Dim rng As Range
    Dim iCols As Integer
    Dim lRows As Long
    Dim iCol As Integer
    Dim lRow As Long
    Dim lRowSource As Long
    Dim x As Long
    Dim wks As Worksheet

    Set rng = Application.InputBox _
      (prompt:="Dönüştüreceğiniz alanı seçin", _
      Type:=8)
    iCols = InputBox("Bölüştürülecek sutün sayısını girin.")
    lRowSource = rng.Rows.Count
    lRows = lRowSource / iCols
    If lRows * iCols <> lRowSource Then lRows = lRows + 1

    Set wks = Worksheets.Add
    lRow = 1
    x = 1
    For iCol = 1 To iCols
        Do While x <= lRows And lRow <= lRowSource
            Cells(x, iCol) = rng.Cells(lRow, 1)
            x = x + 1
            lRow = lRow + 1
        Loop
        x = 1
    Next
End Sub

Örnek dosya ekte.

..

 

[muzzymania]

teşekkür derim yurttaş bende forksiyon bakıyodum eline sağlık