Sub
aab()
Dim
rngB
As
Range
On
Error
Resume
Next
For
Each
rngB
In
Columns(1).SpecialCells(xlCellTypeBlanks).Areas
rngB.Value = rngB.Cells(1).Offset(-1).Value
Next
rngB
For
Each
rngB
In
Columns(2).SpecialCells(xlCellTypeBlanks).Areas
rngB.Value = rngB.Cells(1).Offset(-1).Value
Next
rngB
For
Each
rngB
In
Columns(3).SpecialCells(xlCellTypeBlanks).Areas
rngB.Value = rngB.Cells(1).Offset(-1).Value
Next
rngB
For
Each
rngB
In
Columns(4).SpecialCells(xlCellTypeBlanks).Areas
rngB.Value = rngB.Cells(1).Offset(-1).Value
Next
rngB
For
Each
rngB
In
Columns(5).SpecialCells(xlCellTypeBlanks).Areas
rngB.Value = rngB.Cells(1).Offset(-1).Value
Next
rngB
For
Each
rngB
In
Columns(6).SpecialCells(xlCellTypeBlanks).Areas
rngB.Value = rngB.Cells(1).Offset(-1).Value
Next
rngB
For
Each
rngB
In
Columns(7).SpecialCells(xlCellTypeBlanks).Areas
rngB.Value = rngB.Cells(1).Offset(-1).Value
Next
rngB
For
Each
rngB
In
Columns(8).SpecialCells(xlCellTypeBlanks).Areas
rngB.Value = rngB.Cells(1).Offset(-1).Value
Next
rngB
For
Each
rngB
In
Columns(9).SpecialCells(xlCellTypeBlanks).Areas
rngB.Value = rngB.Cells(1).Offset(-1).Value
Next
rngB
For
Each
rngB
In
Columns(10).SpecialCells(xlCellTypeBlanks).Areas
rngB.Value = rngB.Cells(1).Offset(-1).Value
Next
rngB
End
Sub