Mega Code Archive

 

Categories / VisualBasic Script / Access

 

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