Scribd Logo
Upload

Welcome to Scribd!

  • 12 views

    Para Ordenar Los Datos Del Excel

    Uploaded by

    Diego Martín
    This VBA code splits a column of data into multiple columns based on the number of rows specified by the user. It prompts the user to select the input range, specify the number of rows, and select an output cell. It then redimensions an array based on the number of rows and columns, loops through each cell in the input range to populate the array, and copies the array values to the output range.

    Copyright:

    © All Rights Reserved
    Download as DOCX, PDF, TXT or read online from Scribd

    Para Ordenar Los Datos Del Excel

    Uploaded by

    Diego Martín
    12 views1 page
    This VBA code splits a column of data into multiple columns based on the number of rows specified by the user. It prompts the user to select the input range, specify the number of rows, and select an output cell. It then redimensions an array based on the number of rows and columns, loops through each cell in the input range to populate the array, and copies the array values to the output range.

    Original Title

    Para Ordenar los datos del Excel.docx

    Copyright

    © © All Rights Reserved

    Available Formats

    DOCX, PDF, TXT or read online from Scribd

    Did you find this document useful?

    Is this content inappropriate?

    This VBA code splits a column of data into multiple columns based on the number of rows specified by the user. It prompts the user to select the input range, specify the number of rows, and select an output cell. It then redimensions an array based on the number of rows and columns, loops through each cell in the input range to populate the array, and copies the array values to the output range.

    Copyright:

    © All Rights Reserved
    Download as DOCX, PDF, TXT or read online from Scribd
    Download as docx, pdf, or txt
    12 views1 page

    Para Ordenar Los Datos Del Excel

    Uploaded by

    Diego Martín
    This VBA code splits a column of data into multiple columns based on the number of rows specified by the user. It prompts the user to select the input range, specify the number of rows, and select an output cell. It then redimensions an array based on the number of rows and columns, loops through each cell in the input range to populate the array, and copies the array values to the output range.

    Copyright:

    © All Rights Reserved
    Download as DOCX, PDF, TXT or read online from Scribd
    Download as docx, pdf, or txt
    of 1

    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

    You might also like