(Seleziona l'inero riquadro e da Modifica Cancella -> Formattazione, avrai i numeri semplici e puoi provare l'efficienza della macro usando solo questo codice)
- Codice: Seleziona tutto
Sub FormattazioneCelle()
Range("D312").Font.Bold = True
Range("D312").NumberFormat = "00"
Range("D312").FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="0"
Selection.FormatConditions(1).Interior.ColorIndex = 4
For RR = 312 To 334 Step 2
For CC = 4 To 24 Step 2
If CC = 4 And RR = 312 Then GoTo SaltaCC
Range("D312").Copy
Cells(RR, CC).PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
SaltaCC:
Next CC
Next RR
End Sub
E' anche d'effetto perché, non avendo bloccato l'aggiornamento schermo, la vedi all'opera