xx = "1,2,3,4,,," Dim yy() As String Dim zz As String yy = VBA.Split(xx, ",") ReDim NewArr(LBound(yy) To UBound(yy)) For i = LBound(yy) To UBound(yy) If yy(i) <> "" Then NewArr(j) = yy(i) j = j + 1 End If Next i ReDim Preserve NewArr(LBound(yy) To j - 1) zz = VBA.Join(NewArr, ",")
