Aparentemente, se esse código funciona para uma aba, é só iterar em várias, o que pode ser feito assim:
Dim Plan as Worksheet
For each Plan in ActiveWorkbook.Sheets ' Pressupondo que o arquivo com as planilhas é o que está ativo quando esta função for chamada; se não for, fazer referência ao arquivo de excel adequado.
'Aqui você cola seu código que funciona para uma planilha,
' só que usando a variável Plan para as referências.
' Por exemplo:
Plan.copy ' Em vez de Worksheets(Array("Plan1")).Copy
With Plan ' Em vez de With Sheets("Plan1")
'Pelo código acima, acho que só as duas linhas acima precisam
' de adaptação, as outras não mudam nada.
Next Plan
Só uma dúvida: você não colocou seu código todo aqui não, né? Pergunto isso por dois motivos:
1) Você copia a planilha sem colar em lugar nenhum, de forma que a instrução Copy
ficou perdida/inútil;
2) Você exclui diversas linhas da planilha Plan1 do arquivo original, mas não compila o resultado em outro lugar. Se você rodar esse código iterando todas as planilhas, na forma descrita acima, vai terminar com o arquivo original sem as linhas excluídas, mas ainda dividido em planilhas diferentes. Para unificá-los em uma planilha só, poderia copiar o conteúdo de cada Planilha (propriedade UsedRange
de cada planilha) e colar tudo em uma planilha só.
EDIT SOBRE A PROPRIEDADE USEDRANGE
:
UsedRange
é uma propriedade do objeto Planilha (WorkSheet
) que retorna uma range com a área em uso. Portanto, para saber o endereço do intervalo em uso na planilha, você poderia usar Plan.UsedRange.Address
, que te retorna uma string com o endereço em uso na planilha Plan. Para descobrir a última linha, pode usar Plan.Cells.SpecialCells(xlCellTypeLastCell).Row
.
Contudo, tome cuidado com a propriedade UsedRange
. Ela costuma resetar a cada vez que é utilizada, então não é interessante fazer múltiplas referências ao UsedRange de uma planilha. Se for necessário usar muitas vezes, é melhor você atribuir a UsedRange a uma variável do tipo Range e trabalhar com esta, ou pesquisar de outras formas (dá uma procurada ou pergunta aqui no StackOverflow, pois esse edit todo já não tem a ver com o assunto principal dessa pergunta).