Using the SpecialCells method to select all the blanks in this range is one way to quickly fill in all the blank region cells with the region found above them: : UsedRange « Access « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Access
  3. UsedRange

Using the SpecialCells method to select all the blanks in this range is one way to quickly fill in all the blank region cells with the region found above them:

 
Sub FillIn()
    On Error Resume Next
    range("A1").CurrentRegion.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
    range("A1").CurrentRegion.value = range("A1").CurrentRegion.value
End Sub








Related examples in the same category

1.Working with the Used Range
2.Loop through all used range
3.Remove extraneous rows and columns and reset the last cell
4.Using the Areas Collection to Return a Noncontiguous Range