Convert a Single Cell to Multiple Rows

[Shay A]

Hi,

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, <span style="background-color: rgb(255, 255, 0);">","</span>)
OutRng.Resize(UBound(Arr) - LBound(Arr) + 1).Value = Application.Transpose(Arr)
End Sub

When using this code found online, I get an error in the underlined part.
Any help please?

Thnak you!

 

[AlanSidman]

Since there is nothing showing as underlined, suggest you post a sample copy of your file and explain exactly what you want to do with the file. It may also be a good idea to show a before and after scenario. Do not post your whole file but only a representative sample. In this manner, we can direct a response that does exactly what you want.