Utilização de Sheets.Count Property, para obter o número de Sheets contidas num Workbook, no exemplo, para apagar determinados Ranges iguais nas diversas Sheets: Sub Apaga_Tudo() Dim j As Integer, k As Integer j = Sheets.Count For k = 1 To j With Sheets(k) .Range(“T1”).ClearContents .Range(“X2:Y2”).ClearContents .Range(“c4:f34”).ClearContents .Range(“j4:j34”).ClearContents .Range(“m4:o34”).ClearContents .Range(“q4:r34”).ClearContents End With Next k End Sub
Fórmula em C2: =SUBSTITUIR(A2;1;PROCURAR(“#”;SUBST(A2;” “;”#”;NÚM.CARACT(A2)-NÚM.CARACT(SUBST(A2;” “;””))));””) Função em C3 : =Apelido(A2) VBA: Function Apelido(r As Range) As Variant Dim s As String s = Trim(r.Value) Apelido = Mid(s, InStrRev(s, ” “) + 1) End Function
Se pretendermos apagar os valores zero (0) de determinado Range sem retirar o formato das células em causa, podemos utilizar o seguinte código: Sub Apaga_Zeros() Dim r As Range Set r = Range(“A1:D10”) r.Select Selection.Replace What:=”0″, Replacement:=””, LookAt:=xlWhole, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False End Sub