Kod:
Sub Kontrol()
For a = 1 To Sheets.Count
For Each hucre In Sheets(a).Range("A1:E20")
If hucre.Interior.Color = vbBlue Then
If hucre.MergeCells = True Then
Sheets(a).Select
hucre.ClearContents
Else
hucre.ClearContents
End If
End If
Next
Next
End SubUygulama Adımları
[*]Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
[*]Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
[*]Araç çubuklarından Insert -> Module yazısına tıklayın.
[*]Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
[*]Üstteki kodu yapıştırın.