Excel Move Cells to Right.Solved/Closed

Question

Hello,     

I have a task to move several cells in a few column to the far right column (like below)    
Number of column can be up to 25.     

Your help will be greatly appreciated.    

http://www.editgrid.com/user/j3kj3k/ExcelQuestion

rizvisa1 · Accepted Answer

Try this

Sub MoveData()
Dim lRow As Long
Dim iMaxCol As Integer
Dim lMaxRow As Long
Dim iCol As Integer
Dim Cell As Range
Dim sValue As Variant

    iMaxCol = Cells(1, Columns.Count).End(xlToLeft).Column
    
    Set Cell = Cells.Find("*", Cells(1, 1), SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
    
    If Cell Is Nothing Then Exit Sub
    
    For lRow = 2 To Cell.Row
    
        For iCol = iMaxCol To 2 Step -1
            
            If Cells(lRow, iCol) = "" Then
                sValue = Cells(lRow, iCol).End(xlToLeft)
                Cells(lRow, iCol).End(xlToLeft) = ""
                Cells(lRow, iCol) = sValue
            End If
            
        
        Next iCol
  
  Next lRow

    
End Sub

rizvisa1 · Answer

On what basis would column shift. In your example some did and some did not.

Excel Move Cells to Right.

2 replies

Subscribe To Our Newsletter!