Access VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Access
  4. 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
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