Dê uma lida em
http://www.exceldoseujeito.com.br/2008/11/10/realcar-conteudo-duplicado/

Espero que dê uma luz para você.

Abraço

Obrigada

Primeiramente, dê uma olhadinha na série de artigos sobre data que escrevi.

Bem, para ajudá-lo na sua questão, tente:

1o. passo:
Acesse o ambiente de programação em VBA (ALT+F11) e adicione um módulo.
Nesse módulo insira o código abaixo transcrito.

‘INÍCIO DE CÓDIGO
Public Function VerificaSeFeriado(dDataX As Date) As Boolean
Dim FeriadosFixos(7) As Date
Dim FeriadosMoveis(2) As Date
Dim iAnoX As Integer
Dim dPascoa As Date

iAnoX = Year(dDataX)
dPascoa = CalculaPascoa(iAnoX)

FeriadosFixos(0) = CDate(“1/1/” & iAnoX) ‘Confraternização Universal
FeriadosFixos(1) = CDate(“21/4/” & iAnoX) ‘Tiradentes
FeriadosFixos(2) = CDate(“1/5/” & iAnoX) ‘Trabalho
FeriadosFixos(3) = CDate(“7/9/” & iAnoX) ‘Independência do Brasil
FeriadosFixos(4) = CDate(“12/10/” & iAnoX) ‘Nossa Senhora Aparecida
FeriadosFixos(5) = CDate(“2/11/” & iAnoX) ‘Finados
FeriadosFixos(6) = CDate(“15/11/” & iAnoX) ‘Proclamação da Repúplica
FeriadosFixos(7) = CDate(“25/12/” & iAnoX) ‘Natal

FeriadosMoveis(0) = DateAdd(“d”, -2, dPascoa) ‘Sexta Paixão
FeriadosMoveis(1) = DateAdd(“d”, -47, dPascoa) ‘Carnaval
FeriadosMoveis(2) = DateAdd(“d”, 60, dPascoa) ‘Corpus Christi

Select Case dDataX
Case FeriadosFixos(0), FeriadosFixos(1), FeriadosFixos(2), FeriadosFixos(3), FeriadosFixos(4), FeriadosFixos(5), FeriadosFixos(6), FeriadosFixos(7)
VerificaSeFeriado = True
Case FeriadosMoveis(0), FeriadosMoveis(1), FeriadosMoveis(2)
VerificaSeFeriado = True
Case Else
VerificaSeFeriado = False
End Select

End Function

Private Function CalculaPascoa(iAno As Integer) As Date
Dim A As Integer
Dim B As Integer
Dim C As Integer
Dim D As Integer
Dim E As Integer
Dim F As Integer
Dim G As Integer
Dim H As Integer
Dim I As Integer
Dim J As Integer
Dim K As Integer
Dim L As Integer
Dim M As Integer
Dim N As Integer
Dim P As Integer
Dim Q As Integer
Dim R As Integer
Dim S As Integer

A = iAno \ 100 ‘o inteiro de (Ano ÷ 100)
B = iAno Mod 19 ‘o resto de (Ano ÷ 19)
C = (A – 17) \ 25 ‘o inteiro de [(A - 17) ÷ 25]
D = A \ 4 ‘o inteiro de (A ÷ 4)
E = (A – C) \ 3 ‘o inteiro de [(A - C) ÷ 3]
F = (A – D – E + (19 * B) + 15) Mod 30 ‘o resto de {[A - D - E + (19xB) + 15] ÷ 30}
G = F \ 28 ‘o inteiro de (F ÷ 28)
H = 29 \ (F + 1) ‘o inteiro de [29 ÷ (F + 1)]
I = (21 – B) \ 11 ‘o inteiro de [(21 - B) ÷ 11]
J = G * H * I
K = F – (G * (1 – J))
L = iAno \ 4 ‘o inteiro de (Ano ÷ 4)
M = (iAno + L + K + 2 – A + D) Mod 7 ‘o resto de [(Ano + L + K + 2 - A + D) ÷ 7]
N = K – M
P = (N + 40) \ 44 ‘o inteiro de [(N + 40) ÷ 44]
Q = 3 + P
R = Q \ 4 ‘o inteiro de (Q ÷ 4)
S = N + 28 – (31 * R)

CalculaPascoa = CDate(S & “/” & Q & “/” & iAno)

End Function

‘FIM DE CÓDIGO

2o. passo:
Na célula A1, ao invés de digitar Janeiro/2010, por exemplo, digite 1/1/2010. Faça semelhante para qualquer mês, apenas modificando o mês e o ano. Sempre com o dia 1. E para exibir “Janeiro/2010″, formate a célula de modo personalizado através da string [$-416]mmmm/aaaa;@. Ok.

3o. passo:
Na célula A2, digite a fórmula seguinte e depois copie-a até a linha 32 da mesma coluna.
=SE(MÊS($A$1+LIN()-LIN($A$1)-1) = MÊS($A$1);$A$1+LIN()-LIN($A$1)-1;”")

4o. passo:
Formate o intervalo de A2 a A32 com a string presonalizada “d;@”.

5o. passo:
Na célula B2, digite a fórmula seguinte e depois copie-a até a linha 32 da mesma coluna.
=A2
Em seguida, formate este intervalo com a string personalizada “dddd”.

6o. passo:
Na célula C2, digite a fórmula seguinte e depois copie-a até a linha 32 da mesma coluna.
=SE(A2=”";”";SE(VerificaSeFeriado(A2);”Feriado”;”"))

Espero que ajude.
Abraço.

Grato

Abraço.

Ex.:
Para saber o resultado para:
Mês de março ==> =SOMA(SE(MÊS(A1:A6)=B1;1;0)), e na célula B1 escreva 3;
Mês de abril ==> =SOMA(SE(MÊS(A1:A6)=B1;1;0)), e na célula B1 escreva 4;
Mês de maio ==> =SOMA(SE(MÊS(A1:A6)=B1;1;0)), e na célula B1 escreva 5;
Mês de junho ==> =SOMA(SE(MÊS(A1:A6)=B1;1;0)), e na célula B1 escreva 6;
e assim por diante.

Entendeu?

Não esqueça de finalizar com SHIFT+ENTER.

Abraço