Combine facilmente várias planilhas / pastas de trabalho em uma única planilha / pasta de trabalho

Com o código VBA a seguir, você pode criar uma lista das células especificadas em várias planilhas facilmente. Você pode fazer o seguinte:

Etapa 1: selecione a célula especificada a partir da qual você criará sua lista. No nosso caso, selecionamos a Célula E6.

Passo 2: pressione outro + F11 simultaneamente para abrir a janela Microsoft Visual Basic for Applications, clique em inserção > Móduloe cole o seguinte código na janela do módulo.

VBA: crie uma lista das mesmas células em várias planilhas

Sub CreateList()
Dim xAddWs As Worksheet
Dim xWs As Worksheet
Dim RngAddress As String
xTitleId = "KutoolsforExcel"
RngAddress = Application.ActiveCell.Address
Set xAddWs = Application.ActiveWorkbook.Sheets.Add
xAddWs.Name = xTitleId
i = 1
For Each xWs In Application.ActiveWorkbook.Worksheets
If xWs.Name <> xTitleId Then
xAddWs.Cells(i, 1).Value = xWs.Range(RngAddress).Value
i = i + 1
End If
Next
End Sub

Passo 3: pressione F5 ou clique no Execute botão para executar este VBA.

Em seguida, todos os valores da célula especificada em todas as planilhas são copiados para uma nova planilha chamada KutoolsforExcel. Veja a captura de tela:

Este VBA preencherá a lista em uma nova planilha, e os valores na lista são estáticos, não mudando com os valores originais.

No entanto, às vezes você pode querer preencher a lista no intervalo especificado e exigir que os valores da lista sempre correspondam aos valores originais nas células especificadas o tempo todo. Para atender a essas necessidades, você deve tentar o método a seguir.

Este método irá apresentar Kutools for Excel'S Consulte dinamicamente as planilhas utilitário para criar uma lista dinâmica das mesmas células em várias planilhas.

Etapa 1: selecione o intervalo em que você preencherá a lista dinâmica e clique no botão Kutools > Mais > Consulte dinamicamente as planilhas.

Etapa 2: na caixa de diálogo Preencher referências de planilhas,

(1) Clique no Preencher pedido caixa e selecione um tipo de preenchimento na lista suspensa. No nosso caso, selecionamos Preencher verticalmente célula após célula;

(2) No Fórmula de preenchimento , especifique o endereço da célula a partir do qual você criará uma lista dinâmica e clique no Travar botão  para bloquear a fórmula.

(3) Clique no Faixa de preenchimento botão.

Agora você verá que os valores nas células especificadas em todas as planilhas são preenchidos no intervalo especificado, conforme a captura de tela mostrada abaixo:

Quando os valores originais forem alterados, os valores correspondentes nesta lista especificada serão alterados automaticamente.

Como preencher automaticamente a mesma célula de planilhas diferentes para uma planilha no Excel?