Fill in vba

Fill in function u/ mengisi baris yang kosong.

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

Browse More Articles

Tweet

Written by fitri

We are Creative Blogger Theme Wavers which provides user friendly, effective and easy to use themes. Each support has free and providing HD support screen casting.