Sub SkipFour()
nextRow = 1
For x = 8 To 10
Cells(nextRow, 1).Formula = "=Sheet1!D" & x
nextRow = nextRow + 5
Next x
End Sub
D8 'Static | =INDIRECT("Sheet1!" & A1) |
D8 'Static | =IF(A2<>A1,INDIRECT("Sheet1!" & A2),"DELETE ME") |
D8 'Static | =IF(A3<>A2,INDIRECT("Sheet1!" & A3),"DELETE ME") |
D8 'Static | =IF(A4<>A3,INDIRECT("Sheet1!" & A4),"DELETE ME") |
D8 'Static | =IF(A5<>A4,INDIRECT("Sheet1!" & A5),"DELETE ME") |
=IF((RIGHT(A1)=RIGHT(A5)),"D"&RIGHT(A5)+1) | ... etc. |
=IF((RIGHT(A2)=RIGHT(A6)),"D"&RIGHT(A6)+1) | |
=IF((RIGHT(A3)=RIGHT(A7)),"D"&RIGHT(A7)+1) | |
=IF((RIGHT(A4)=RIGHT(A8)),"D"&RIGHT(A8)+1) | |
... etc. |
one thing that I like to do when I don't want a formula in the cells that are going to return "" is to just delete them.Here's a way to do it without VBA or helper cells. Copy this formula into A6 and drag it down. There will still be a formula in all cells, but the value will only appear in every fourth row:
=IF(MOD(ROW(A1)-1,4)=0,INDEX(Sheet1!D:D,8+INT((ROW(A1)-1)/4)),"")