Excluindo todas as células na linha após o espaço em branco

Question

Eu estava pensando se há uma maneira simples de, para cada linha, mover para a direita e verificar se há uma célula em branco e, se for o caso, excluir tudo à direita dela. Isso pode ser feito com uma fórmula?

    

Answer 1

Basta especificar o intervalo e usar a macro:

Sub Delete()   
    Range("A1:A50").Select
    Selection.ClearContents
end sub

Onde A1:A50 é o intervalo após a célula em branco.

Se você se opõe a macros, pode fazê-lo manualmente por:

1. Ctrl+G
2. Type the range in. Hit enter.
3. Then just hit the 'Delete' key.