Tempo de leitura: 1 minuto
Com esses macros planilha Excel vba, vamos deletar os primeiros 6 caracteres da fonte em em todas as linhas e todas as colunas previamente definidas, para isso vamos usar uma Instrução For Next Aninhada para percorrer linhas e colunas e efetuar a deleção. Também fiz um macro para você poder realizar os testes com facilidade, que copiará os dados de outra folha de planilha do Excel para os novos testes.
Sub sbx_deletar_seis_caracteres()
Dim wCol As Integer, wLin As Integer, wIn, wFin
wIn = 1: wFin = 6
If Planilha1.[J6].Value = 1 Then Exit Sub
For wCol = 2 To 8
For wLin = 2 To Cells(Rows.Count, wCol).End(xlUp).Row
Planilha1.Cells(wLin, wCol).Characters(Start:=wIni, Length:=wFin).Delete
Next wLin
Next wCol
MsgBox “Os primeiros 6 caracteres foram deletados com sucesso!!”, vbInformation, “Escola SaberExc”
Planilha1.[J6].Value = 1
End Sub
‘Codigo para copiar os dados para novos testes.
Sub sbx_copiar_teste()
Dim X As Integer
X = Planilha2.Range(“A” & Rows.Count).End(xlUp).Row
Planilha2.Range(“A1:H” & X).Copy Planilha1.[a1]
Planilha1.[J6].Value = 0
End Sub
Baixe aqui o exemplo de Planilha Excel VBA
Link permanente
Muito Obrigado!
Link permanente
Ok meu Irmão, espero que tenha servido.
Expedito Marcondes.