Depois de ter dados nas células, execute esta macro curta:
Sub FixHardReturns()
Dim CH As String, r As Range, v As Variant
CH = Chr(10)
For Each r In ActiveSheet.UsedRange
v = r.Value
If v <> "" Then
If InStr(1, v, CH) > 0 Then r.WrapText = True
End If
Next r
End Sub
As macros são muito fáceis de instalar e usar:
- ALT-F11 exibe a janela do VBE
- ALT-I ALT-M abre um novo módulo
- cole o material e feche a janela do VBE
Se você salvar a pasta de trabalho, a macro será salva com ela. Se você estiver usando uma versão do Excel posterior a 2003, deverá salvar o arquivo como .xlsm em vez de .xlsx
Para remover a macro:
- abrir a janela do VBE como acima
- limpe o código
- feche a janela do VBE
Para usar a macro do Excel:
- ALT-F8
- Selecione a macro
- Toque em EXECUTAR
Para saber mais sobre macros em geral, consulte:
e
As macros devem estar ativadas para que isso funcione!