Este fórum está sendo desativado

[joaogerdau]

Galera, estou com uma planilha bem grande e nela eu preciso copiar uma célula e arrastá-la para baixo com a cor da letra diferente, porém, não há uma ordem da aparição de outra célula que eu deva copiar. Então basicamente é: tenho que copiar a primeira célula com cor diferente até quando eu ver a próxima e depois realizar o mesmo procedimento.

Desde já agradeço.

[marcosocoloniezi]

não sei se era isso que você queria, mas essa macro vai copiar o primeiro valor nas células em branco até o segundo valor e mudar a cor para vermelho, aí copia o segunda valor nas células em branco até o terceiro e assim por diante, até o último valor que não será copiado para as células abaixo. Caso você queira pintar cada célula de uma cor diferente daí tem que criar uma macro para mudar as cores.

Código: Selecionar todos

Sub Macro1()
Dim i As Integer
Dim a, b, c, d As Long
Dim seleção As String
    Range("A1").Select
    a = 1
    For i = 1 To 32767
    Range("A" & a).Select
    Selection.End(xlDown).Select
    b = ActiveCell.Row
    If b > 100000 Then Exit Sub
    c = b - 1
    d = a + 1
    Range("A" & a).Select
    Selection.Copy
    seleção = "A" & d & ":A" & c
    Range(seleção).Select
    ActiveSheet.Paste
    Range(seleção).Select
    With Selection.Font
        .Color = -16776961
        .TintAndShade = 0
    End With
    a = b
    Next i
  
End Sub