0031-Loop para percorrer intervalos descontínuos

Imagine que você deseja percorrer todas as células dos intervalos A1:A100, A150:A200 e A300:A400, ocultando as linhas que não tem valores preenchidos.
Poderíamos realizar 3 loops diferentes, colocando para cada um, o intervalo de variação das linhas dos intervalos.
Mas existe uma forma mais simples.
Para isso vamos utilizar o operador Union para reunir todos os intervalos e em seguida percorrê-los de forma única.

Sub PercorrerIntervalo()
Dim rgComposto As Range
Dim rg         As Range
Set rgComposto = Union([A1:A100],[A150:A200],[A300:A400])
   For Each rg in rgComposto
      If rg  "" Then Rows(rg.Row).Hidden = False Else Rows(rg.Row).Hidden = True
   Next rg
End Sub
Anúncios

In Excel We Trust

Marcado com:
Publicado em Nível: Avançado

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

%d blogueiros gostam disto: