lutiin c n


rw ni/


The equivalent VBA code is a bit easier:

1. Find the last row of the report.

2. Enter the formula =R[-1]C in the blank cells in A.

3. Change those formulas to values.

The code to do this follows:

' Fill in the Outline view in column A 1 Look for last row in column B since many rows ' in column A are blank FinalReportRow = WSR.Range("B65536").End(xlUp).Row With Range("A3").Resize(FinalReportRow - 2, 1) With .SpecialCells(xlCellTypeBlanks)

.FormulaR1C1 = "=R[-1]C" End With .Value = .Value End With

0 0

Post a comment