A copied Pivoted table forever will have unfilled or empty cells in the area of
the criterion - this makes a pivoted table much easier to read, particularly when
you have very complex criteria’s.
To fill those empty cells you could try out the following code:
- Select the area or the columns with the require cells
- run the following code:
Code:
Sub Fill_empty_cell()
If Selection.WorksheetFunction.CountBlank(.Cells) > 1 Then
Selction.SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
Selction.Value = Selection.Value
End If
End Sub
Bookmarks