Boa noite, @anderson
O método Copy/Paste como proposto pelo colega @raygsson é o único que pode transferir o conteúdo de todas as células de intervalos não-adjacentes em uma só operação para outro intervalo. Fora isso, vc teria que fazer loop não em cada célula, mas em cada grupo de células contíguas de seu intervalo (cada área). Por exemplo, se seu intervalo fosse:
Set intervalo = Plan1.Range("A2:A5,A7,A9:A10")
Vc teria que fazer pelo menos 3 loops (intervalo.Areas.Count = 3) embora ele tenha (intervalo.Cells.Count) = 7 células. Para esses 3 grupos de células, cada um admite transferir seu valor ou fazer outro processamento em bloco em uma só operação (por ex. propriedades Value, Value2, atribuir a uma matriz, etc.).
Como seu intervalo do exemplo é composto só por células únicas não adjacentes, sendo 5 células serão 5 entradas no loop mesmo.
Postado : 08/09/2020 10:32 pm