Excel Move Cells to Right. [Solved/Closed]

Question

Ask a question Report

Excel Move Cells to Right. [Solved/Closed]

j3kj3k 16 Posts Tuesday June 1, 2010Registration date July 11, 2012 Last seen - Jun 15, 2010 at 05:25 PM - Latest reply: j3kj3k 16 Posts Tuesday June 1, 2010Registration date July 11, 2012 Last seen

- Jun 17, 2010 at 12:04 PM

Excel Ask a question Report

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

4 replies

Report Respond to rizvisa1

rizvisa1 4481 Posts Thursday January 28, 2010Registration dateContributorStatus January 6, 2016 Last seen - Jun 15, 2010 at 07:52 PM

0

Thank you

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

Report

j3kj3k 16 Posts Tuesday June 1, 2010Registration date July 11, 2012 Last seen - Jun 16, 2010 at 01:21 PM

Hi, Rizvisa1

That was my bad. I have updated the spread sheet. Basically move all none balck cell next to last column (not concatenate).

Thanks

Ask a question

Accepted Answer

2

Thank you

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

Thank you, rizvisa1 2

Something to say? Add comment

CCM has helped 1687 users this month

Excel Move Cells to Right. [Solved/Closed]

Your reply