Delete Blank Cells in a Row
Untested
Public Sub ProcessData()
Const TEST_COLUMN As String = "A" '<=== change to suit
Dim i As Long, j As Long
Dim LastRow As Long
Dim LastCol As Long
With ActiveSheet
LastRow = .Cells(.Rows.Count, TEST_COLUMN).End(xlUp).Row
For i = 1 To LastRow
LastCol = .Cells(i, .Columns.Count).End(xlToLeft).Column
For j = LastCol To 2 Step -1
If .Cells(i, j).Value = "" Then
.Cells(i, j).Delete Shift:=xlToLeft
End If
Next j
Next i
End With
End Sub
--
__________________________________
HTH
Bob
"Charles" wrote in message
...
I have 8000+ rows of data where each row has bank cells in random
positions,
except for Column A which is aways populated.
Can someone help me with a script that will check each row, delete the
bank
cell by moving the other cells in the row to the left.
Thanks
|