Para transferir completamente os dados do intervalo de células atual para uma nova tabela, você precisa saber quão grande é o intervalo de células usado ao redor da célula ativa. Ou você pode deixar o Excel fazer isso por você e copiar o g
Gostaria de copiar automaticamente todas as células de um intervalo contíguo de células em uma macro? Isso é particularmente útil se você deseja reagir com flexibilidade à entrada de usuários e não sabe o tamanho das áreas de dados inseridas.
Você pode usar uma macro para fazer este trabalho. A macro determina todas as células ao redor da célula ativa e copia exatamente essas células em uma nova pasta de trabalho.
A figura a seguir mostra uma tabela com três áreas de dados diferentes. Eles são codificados por cores para torná-los mais fáceis de ver.
Todas as células que se conectam a células vizinhas sem células vazias são consideradas como pertencentes uma à outra.
Com uma macro adequada, você pode garantir que, depois de clicar em uma célula em um intervalo de células, todas as células pertencentes a ela sejam copiadas para uma nova tabela. Aqui está o código do programa apropriado:
Subcópia da área atual ()
Dim source area As Range
Dim NewSheet As Worksheet
Definir área de origem = ActiveCell.CurrentRegion
Defina NeuesBlatt = Workbooks.Add.Worksheets (1)
Área de origem. Destino da cópia: = NeuesBlatt.Range ("A1")
End Sub
Antes de chamar a macro, clique em qualquer célula de uma tabela. A macro determina todas as células que, junto com a célula selecionada, pertencem a um intervalo e copia esse intervalo de dados em uma nova pasta de trabalho vazia. A figura a seguir mostra a aparência do resultado após chamar a macro se a célula E9 na tabela da primeira figura for selecionada antes de a macro iniciar.
Para inserir a macro, pressione ALT F11 no Excel para abrir o editor VBA. Selecione o comando INSERT - MODULE no editor VBA e insira a macro. Para iniciar a macro, ative a combinação de teclas ALT F8 no Excel. Os dois atalhos de teclado para iniciar o editor VBA e a macro funcionam em todas as versões do Excel.
