In this video lecture we will be learning how we can automatically convert and transfer the data which is presented in a single excel cell into multiple or different rows. we will learn if text to column function is not working for your case and if it is not separating the data in one excel cell into columns then this video is for you. the text to column function only works when when you a comma separator after each character or information. but we will tell you the trick if you have'nt put commas in your one cell entry and you have a large set of data arranged in pattern of lines in one cell for example
university
data book
mining
this kind of data we will be teaching you can separate then from one cell into different rows. Further more we will be teaching you that how you can convert rows into columns automatically within few seconds.
Now please note down the code which I used in the video. If you like video please subscribe and press the bell icon.
Sub TransposeRange()
'Updateby20140312
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection.Range("A1")
Set InputRng = Application.InputBox("Range(single cell) :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Arr = VBA.Split(InputRng.Range("A1").Value, ",")
OutRng.Resize(UBound(Arr) - LBound(Arr) + 1).Value = Application.Transpose(Arr)
End Sub