Need expert help—fast? Use the Help Bell for personalized assistance getting answers to your important questions.
Sub FillInBlanks()
Dim rng As Range, i As Double
Set rng = Selection
For i = 1 To rng.Cells.Count
If IsEmpty(rng.Cells(i)) Then
If rng.Cells(i).Column <> rng.Columns(1).Column Then
rng.Cells(i) = rng.Cells(i).End(xlToLeft)
End If
End If
Next i
End Sub
Sub FillInBlanks()
Dim rng As Range, i As Double
Set rng = Selection
For i = 1 To rng.Rows.Count
If IsEmpty(rng.Cells(i)) Then
If rng.Cells(i).Row <> rng.Rows(1).Row Then
rng.Cells(i) = rng.Cells(i).End(xlUp)
End If
End If
Next i
End Sub
Sub FillInBlanks()
Dim rng As Range, i As Double
Set rng = Selection
For i = 1 To rng.Cells.Count
If IsEmpty(rng.Cells(i)) Then
If rng.Cells(i).Row <> rng.Rows(1).Row Then
rng.Cells(i) = rng.Cells(i).End(xlUp)
End If
End If
Next i
End Sub
Important Unless there are one or more blank columns to the right of the selected column, the data to the right of the selected column will be overwritten.
On the Data menu, click Text to Columns.
Follow the instructions in the Convert Text to Columns Wizard to specify how you want to divide the text into columns.
You can swap rows and columns words in solution..
Is this what you are looking for?