How To Convert Data in Columns into Rows in Excel Document

How To Convert Data in Columns into Rows in Excel Document

Download Notepad file - Clickhere

Copy code here:

Function SplitCellToRows(CellValue As Range, Delimiter As String)

Dim SplitValues() As String

SplitValues=Split(CellValue.Value, Delimiter)

For i=LBound(SplitValues)To UBound(SplitValues)

SplitValues(i)=Trim(SplitValues(i))

Next i

SplitCellToRows=WorksheetFunction.Transpose(SplitValues)

End Function

Download Notepad file - Clickhere