How to Add "Skip if Len <2" to VBA Code That Converts CSV to New Rows

[MrBartlett]

Hi all,

Below is my code:

Sub RedistributeCommaDelimitedData()
    Dim xArr() As String
    Dim xAddress As String
    Dim Rg As Range
    Dim Rg1 As Range
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set Rg = Application.InputBox("please select the data range:", xAddress, , , , , 8)
    If Rg Is Nothing Then Exit Sub
    Set Rg = Application.Intersect(Rg, Rg.Parent.UsedRange)
    If Rg Is Nothing Then Exit Sub
    Set Rg1 = Application.InputBox("please select output cell:", , , , , , 8)
    If Rg1 Is Nothing Then Exit Sub
    xArr = Split(Join(Application.Transpose(Rg.Value), ","), ",")
    Rg1.Resize(UBound(xArr) + 1) = Application.Transpose(xArr)
    Rg1.Parent.Activate
    Rg1.Resize(UBound(xArr) + 1).Select
End Sub

What's the best way to have it skip values that have length <2?

Thanks!

 

[MrBartlett]

Bump. Any insight? Thanks in advance!

 

[alansidman]

You might receive more responses if you explained what you want to happen with your worksheet (explain in detail) instead of asking someone to change your code which is designed to do something very specific. New code may be a better option versus trying to band aid existing code. To offer this, a clear understanding of your workbook and what is happening would be a good start.