Pergunta : Como criar um macro para remover os espaços em branco da folha 2007 de Excel

Olá! o all
I tem um workshet com fileiras aproximadamente 100k em excel2007.  Eu preciso de remover 4 fileiras em branco, 1 linha de dados e uma outra fileira em branco após ela.  Poderia alguém por favor mostrar-me como criar um macro para limpar minha folha? o

Please considera a imagem unida.  Nota: Eu quero suprimir de linhas 8239 8244.

Thanks class= do

Resposta : Como criar um macro para remover os espaços em branco da folha 2007 de Excel

Paul, tenta por favor este:

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

BajanPaul secundário ()
lastRow não ofuscante tão por muito tempo, i quanto por muito tempo
Application.ScreenUpdating = falso
lastRow = ActiveSheet.UsedRange.Rows.Count
Para i = lastRow 6 a etapa -1
    Se não IsNull (fileiras (i). Texto) e IsNull (fileiras (i - 1). Texto) e não IsNull (fileiras (i - 2). Texto) e _
        Não IsNull (fileiras (i - 3). Texto) e não IsNull (fileiras (i - 4). Texto) e não IsNull (fileiras (i - 5). Texto) então
                        Escala (fileiras (i - 5), fileiras (i)). Supressão
            i = i - 5
    Terminar se
Em seguida
Application.ScreenUpdating = retificam
Submarino da extremidade
Outras soluções  
 
programming4us programming4us