Como quebrar texto usando vba (com exemplo)

Você pode usar a propriedade WrapText no VBA para quebrar o texto em células específicas em uma planilha do Excel.

Aqui estão três maneiras comuns de usar essa propriedade na prática:

Método 1: Quebrar o texto de uma célula específica

 Sub UseWrapText()
Range(" B2 ").WrapText = True
End Sub

Método 2: Quebrar o texto da célula em um intervalo específico

 SubUseWrapText ()
Range(" B2:B11 ").WrapText = True
End Sub

Método 3: Quebrar o texto de todas as células da planilha

 Sub UseWrapText()
Cells.WrapText = True
End Sub

Os exemplos a seguir mostram como usar cada método na prática com o seguinte conjunto de dados no Excel:

Vamos!

Exemplo 1: Quebrar o texto de uma célula específica usando VBA

Podemos criar a seguinte macro para quebrar o texto apenas na célula B2 :

 Sub UseWrapText()
Range(" B2 ").WrapText = True
End Sub

Quando executamos esta macro, podemos clicar na célula B2 e ver que Quebrar texto está habilitado no grupo Alinhamento na guia Página inicial na faixa superior:

No entanto, precisamos diminuir o comprimento da coluna B e aumentar a altura da linha 2 para realmente ver o texto quebrado:

Agora podemos ver facilmente que o texto na célula B2 é quebrado, enquanto o texto em todas as outras células da coluna B não é quebrado.

Exemplo 2: Quebrar o texto da célula em um intervalo específico usando VBA

Podemos criar a seguinte macro para quebrar o texto em cada célula do intervalo B2:B11 :

 Sub UseWrapText()
Range(" B2:B11 ").WrapText = True
End Sub

Quando executamos esta macro, recebemos a seguinte saída:

Podemos ver que cada célula no intervalo B2:B11 agora contém texto quebrado.

Exemplo 3: Quebrar o texto de todas as células em uma planilha usando VBA

Podemos criar a seguinte macro para quebrar o texto em cada célula de uma planilha:

 Sub UseWrapText()
Cells.WrapText = True
End Sub

Quando executamos esta macro, recebemos a seguinte saída:

Podemos ver que cada célula da planilha agora contém texto quebrado.

Nota : Você pode encontrar a documentação completa da propriedade WrapText do VBA aqui .

Recursos adicionais

Os tutoriais a seguir explicam como realizar outras tarefas comuns em VBA:

VBA: Como alterar a cor da fonte
VBA: Como substituir caracteres em uma string
VBA: Como inserir uma linha com formatação