Note: The other languages of the website are Google-translated. Back to English

 Como transpor células em uma coluna com base em valores únicos em outra coluna?

Supondo que você tenha um intervalo de dados que contém duas colunas, agora você deseja transpor células de uma coluna para linhas horizontais com base em valores exclusivos em outra coluna para obter o seguinte resultado. Você tem alguma boa ideia para resolver este problema no Excel?

doc transpor valores únicos 1

Transponha células em uma coluna com base em valores únicos com fórmulas

Transpor células em uma coluna com base em valores únicos com código VBA

Transponha células em uma coluna com base em valores únicos com Kutools para Excel


Com as seguintes fórmulas de matriz, você pode extrair os valores exclusivos e transpor seus dados correspondentes em linhas horizontais. Faça o seguinte:

1. Insira esta fórmula de matriz: = ÍNDICE ($ A $ 2: $ A $ 16, CORRESPONDÊNCIA (0, CONTADOR ($ D $ 1: $ D1, $ A $ 2: $ A $ 16), 0)) em uma célula em branco, D2, por exemplo, e pressione Shift + Ctrl + Enter juntas para obter o resultado correto, veja a captura de tela:

doc transpor valores únicos 2

Nota: Na fórmula acima, A2: A16 é a coluna da qual você deseja listar os valores exclusivos, e D1 é a célula acima desta célula de fórmula.

2. Em seguida, arraste a alça de preenchimento até as células para extrair todos os valores exclusivos, consulte a captura de tela:

doc transpor valores únicos 3

3. E então continue inserindo esta fórmula na célula E2: =IFERROR(INDEX($B$2:$B$16, MATCH(0, COUNTIF($D2:D2,$B$2:$B$16)+IF($A$2:$A$16<>$D2, 1, 0), 0)), 0), e lembre-se de pressionar Shift + Ctrl + Enter chaves para obter o resultado, consulte a imagem:

doc transpor valores únicos 4

Nota: Na fórmula acima: B2: B16 são os dados da coluna que você deseja transpor, A2: A16 é a coluna na qual você deseja transpor os valores, e D2 contém o valor exclusivo que você extraiu na Etapa 1.

4. Em seguida, arraste a alça de preenchimento para a direita das células que deseja listar os dados transpostos até exibir 0, consulte a captura de tela:

doc transpor valores únicos 5

5. Em seguida, continue arrastando a alça de preenchimento até o intervalo de células para obter os dados transpostos, conforme mostrado a seguir:

doc transpor valores únicos 6


Pode ser que as fórmulas sejam complexas para você entender, aqui, você pode executar o seguinte código VBA para obter o resultado desejado de que precisa.

1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe cole o seguinte código no Módulo Janela.

Código VBA: transponha células em uma coluna com base em valores exclusivos em outra coluna:

Sub transposeunique()
'updateby Extendoffice
    Dim xLRow As Long
    Dim i As Long
    Dim xCrit As String
    Dim xCol  As New Collection
    Dim xRg As Range
    Dim xOutRg As Range
    Dim xTxt As String
    Dim xCount As Long
    Dim xVRg As Range
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("please select data range(only two columns):", "Kutools for Excel", xTxt, , , , , 8)
    Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    If (xRg.Columns.Count <> 2) Or _
       (xRg.Areas.Count > 1) Then
        MsgBox "the used range is only one area with two columns ", , "Kutools for Excel"
        Exit Sub
    End If
    Set xOutRg = Application.InputBox("please select output range(specify one cell):", "Kutools for Excel", xTxt, , , , , 8)
    If xOutRg Is Nothing Then Exit Sub
    Set xOutRg = xOutRg.Range(1)
    xLRow = xRg.Rows.Count
    For i = 2 To xLRow
        xCol.Add xRg.Cells(i, 1).Value, xRg.Cells(i, 1).Value
    Next
    Application.ScreenUpdating = False
    For i = 1 To xCol.Count
        xCrit = xCol.Item(i)
        xOutRg.Offset(i, 0) = xCrit
        xRg.AutoFilter Field:=1, Criteria1:=xCrit
        Set xVRg = xRg.Range("B2:B" & xLRow).SpecialCells(xlCellTypeVisible)
        If xVRg.Count > xCount Then xCount = xVRg.Count
        xRg.Range("B2:B" & xLRow).SpecialCells(xlCellTypeVisible).Copy
        xOutRg.Offset(i, 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
        Application.CutCopyMode = False
    Next
    xOutRg = xRg.Cells(1, 1)
    xOutRg.Offset(0, 1).Resize(1, xCount) = xRg.Cells(1, 2)
    xRg.Rows(1).Copy
    xOutRg.Resize(1, xCount + 1).PasteSpecial Paste:=xlPasteFormats
    xRg.AutoFilter
    Application.ScreenUpdating = True
End Sub

3. Então aperte F5 para executar este código e uma caixa de prompt aparecerá para lembrá-lo de selecionar o intervalo de dados que deseja usar, consulte a captura de tela:

doc transpor valores únicos 7

4. E, em seguida, clique em OK botão, outra caixa de prompt aparecerá para lembrá-lo de selecionar uma célula para colocar o resultado, veja a captura de tela:

doc transpor valores únicos 8

6. Clique OK botão, e os dados na coluna B foram transpostos com base em valores únicos na coluna A, consulte a captura de tela:

doc transpor valores únicos 9


Se você tem Kutools for Excel, combinando o Combinar linhas avançadas e Dividir células utilitários, você pode concluir essa tarefa rapidamente sem fórmulas ou códigos.

Kutools for Excel : com mais de 300 suplementos úteis do Excel, grátis para testar sem limitação em 30 dias.

Depois de instalar Kutools for Excel, faça o seguinte:

1. Selecione o intervalo de dados que você deseja usar. (Se você deseja manter os dados originais, copie e cole os dados em outro local primeiro.)

2. Então clique Kutools > Unir e dividir > Combinar linhas avançadas, veja a captura de tela:

3. No Combinar linhas com base na coluna caixa de diálogo, execute as seguintes operações:

(1.) Clique no nome da coluna em que deseja transpor os dados e selecione Chave primária;

(2.) Clique em outra coluna que deseja transpor e clique em Combinar em seguida, escolha um separador para separar os dados combinados, como espaço, vírgula, ponto e vírgula.

doc transpor valores únicos 11

4. Então clique Ok botão, os dados na coluna B foram combinados em uma célula com base na coluna A, veja a captura de tela:

doc transpor valores únicos 12

5. Em seguida, selecione as células combinadas e clique em Kutools > Unir e dividir > Dividir células, veja a captura de tela:

6. No Dividir células caixa de diálogo, selecione Dividir em colunas sob a para cada ocasião opção e, em seguida, escolha o separador que separa seus dados combinados, consulte a captura de tela:

doc transpor valores únicos 14 14

7. Então clique Ok botão e selecione uma célula para colocar o resultado da divisão na caixa de diálogo exibida, consulte a captura de tela:

doc transpor valores únicos 15

8. Clique OK, e você obterá o resultado que precisa. Veja a imagem:

doc transpor valores únicos 16

Baixe e teste grátis Kutools para Excel agora!


Kutools for Excel: com mais de 300 suplementos úteis do Excel, grátis para testar sem limitação em 30 dias. Baixe e teste grátis agora!

As melhores ferramentas de produtividade para escritório

O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

  • armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
  • Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
  • Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
  • Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
  • Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
  • Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
  • Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2021 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos de avaliação gratuita de 30 dias. Garantia de devolução do dinheiro em 60 dias.
guia kte 201905

Guia do Office traz interface com guias para o Office e torna seu trabalho muito mais fácil

  • Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
  • Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
parte inferior da aba do escritório
Comentários (56)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Como eu iria na direção oposta? De várias colunas em uma única coluna? Desde já, obrigado! Tim
Este comentário foi feito pelo moderador no site
Isso foi fantástico. Eu tinha um excel com cerca de 2000 valores únicos na linha A e não poderia ter feito este exercício sem sua ajuda. Muitíssimo obrigado.
Este comentário foi feito pelo moderador no site
A primeira etapa falha =INDEX($A$2:$A$16, MATCH(0, COUNTIF($D$1:$D1, $A$2:$A$16), 0)) dá erro Valor não disponível
Este comentário foi feito pelo moderador no site
Eu só quero fazer o contrário. Como eu já tenho o resultado final, e eu quero alcançar o primeiro passo.
Este comentário foi feito pelo moderador no site
Eu estou procurando a mesma coisa
Este comentário foi feito pelo moderador no site
Você encontrou alguma solução para o cenário oposto? Obrigado!
Este comentário foi feito pelo moderador no site
Também quero fazer o contrário. Alguma solução que você tem senhores?
Este comentário foi feito pelo moderador no site
Olá, pessoal,
Para obter o resultado oposto com base no exemplo deste artigo, você pode aplicar o seguinte código VBA: (Observação: Ao selecionar o intervalo de dados que você deseja transpor, exclua a linha do cabeçalho)

SubtransposiçãoUnique_2()
Dim xLRow, xLCount As Long
Dim xRg como intervalo
Dim xOutRg como intervalo
Dim xObjRRg como intervalo
Dim xTXT As String
Escurecer xCount As Long
Dim xVRg como intervalo
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("por favor selecione o intervalo de dados:", "Kutools for Excel", xTxt, , , , , 8)
Definir xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
Se xRg não for nada, saia do sub
Se (xRg.Rows.count < 2) Ou _
(xRg.Areas.count > 1) Então
MsgBox "Seleção inválida", , "Kutools for Excel"
Exit Sub
Se acabar
Set xOutRg = Application.InputBox("por favor selecione o intervalo de saída (especifique uma célula):", "Kutools for Excel", xTxt, , , , , 8)
Se xOutRg não for nada, saia do sub
Application.ScreenUpdating = False
xLCount = xRg.Columns.count
Para xLRow = 1 Para xRg.Rows.count
Definir xObjRRg = Range(xRg.Cells(xLRow, 2), xRg.Cells(xLRow, xLCount)).SpecialCells(xlCellTypeConstants)
xObjRRg.Copy
xOutRg.Offset(, 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Application.CutCopyMode = False
Range(Cells(xOutRg.Row, xOutRg.Column), Cells(xOutRg.Row + xObjRRg.count - 1, xOutRg.Column)).Value = xRg.Cells(xLRow, 1).Value
Definir xOutRg = xOutRg.Offset(RowOffset:=xObjRRg.count)
Seguinte
Application.ScreenUpdating = True
End Sub
Este comentário foi feito pelo moderador no site
Como fazer a transposição se a coluna B não tiver valores exclusivos, mas ainda precisar desses valores
KTE 100
KTE 100
Assumindo que são duas transações diferentes
Este comentário foi feito pelo moderador no site
Olá, Didin.

Você pode dar o seu problema de forma mais clara ou detalhada?
Você pode inserir uma captura de tela de exemplo para o seu problema.
Obrigado!
Este comentário foi feito pelo moderador no site
Oi lá,
Você poderia por favor me ajudar com o requisito abaixo.
Produto ----- pedido
KTE ------ 100KTE ------ 200KTO ------ 300KTO ------ 300
saída esperada
Produto ----- pedido ----- pedido ------ pedido
KTE ------ 100 ------ 200
KTO ------ 300 ------ 300







Este comentário foi feito pelo moderador no site
Eu também preciso do mesmo. Eu quero exibir 100 duas vezes é se houver nos dados
Este comentário foi feito pelo moderador no site
Você pode sugerir uma fórmula para isso
Este comentário foi feito pelo moderador no site
Você já recebeu uma resposta/resolução para este desafio? Eu tenho o mesmo.
Este comentário foi feito pelo moderador no site
Existe uma maneira de fazer isso ao contrário? Ou seja, dados em linhas de comprimento variável e, assim, classificá-los em duas colunas? Ver anexo.
Este comentário foi feito pelo moderador no site
eu quero transpor valores duplicados também (todos os valores - único + duplicado) e não apenas valores únicos. Você pode dar a fórmula para isso também.
Este comentário foi feito pelo moderador no site
eu preciso do mesmo
Este comentário foi feito pelo moderador no site
Você já recebeu uma resposta/resolução para este desafio? Eu tenho o mesmo.
Este comentário foi feito pelo moderador no site
Com a fórmula abaixo:

=IFERROR(INDEX($B$2:$B$45, MATCH(0, COUNTIF($D2:D2,$B$2:$B$45)+IF($A$2:$A$10<>$D2, 1, 0), 0)), 0)

Como posso transpor os dados usando correspondências aproximadas? Digamos que eu queira extrair todos os valores da Coluna B que correspondam aos primeiros 9 caracteres/dígitos da Coluna A? A coluna B tem 11 caracteres enquanto A apenas 9. obrigado!
Este comentário foi feito pelo moderador no site
Eu preciso fazer exatamente o oposto disso. Eu tenho muitas colunas associadas a um id de linha e quero colá-las em duas colunas
por exemplo eu tenho
rowid, valor, valor1, valor2, valor3, valor4, valor..225
100, Dolphin, 255, 9--, Sarah, Jameson, ....
179, roteador, inundação, jason, 89, nariz



Eu quero que fique assim
100, Golfinho
100, 255
100, 9--
100, Sara
100, Jameson
179, roteador
179, inundação
179, Jasão
179, 89
179, nariz
Este comentário foi feito pelo moderador no site
Olá, Davi,
Para resolver seu problema, use o código VBA abaixo: (Observação: ao selecionar o intervalo de dados que deseja transpor, exclua a linha do cabeçalho.)

SubtransposiçãoUnique_2()
Dim xLRow, xLCount As Long
Dim xRg como intervalo
Dim xOutRg como intervalo
Dim xObjRRg como intervalo
Dim xTXT As String
Escurecer xCount As Long
Dim xVRg como intervalo
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("por favor selecione o intervalo de dados:", "Kutools for Excel", xTxt, , , , , 8)
Definir xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
Se xRg não for nada, saia do sub
Se (xRg.Rows.count < 2) Ou _
(xRg.Areas.count > 1) Então
MsgBox "Seleção inválida", , "Kutools for Excel"
Exit Sub
Se acabar
Set xOutRg = Application.InputBox("por favor selecione o intervalo de saída (especifique uma célula):", "Kutools for Excel", xTxt, , , , , 8)
Se xOutRg não for nada, saia do sub
Application.ScreenUpdating = False
xLCount = xRg.Columns.count
Para xLRow = 1 Para xRg.Rows.count
Definir xObjRRg = Range(xRg.Cells(xLRow, 2), xRg.Cells(xLRow, xLCount)).SpecialCells(xlCellTypeConstants)
xObjRRg.Copy
xOutRg.Offset(, 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Application.CutCopyMode = False
Range(Cells(xOutRg.Row, xOutRg.Column), Cells(xOutRg.Row + xObjRRg.count - 1, xOutRg.Column)).Value = xRg.Cells(xLRow, 1).Value
Definir xOutRg = xOutRg.Offset(RowOffset:=xObjRRg.count)
Seguinte
Application.ScreenUpdating = True
End Sub
Este comentário foi feito pelo moderador no site
Obrigado, funciona perfeitamente, você me salvou 2 dias! :)
Este comentário foi feito pelo moderador no site
Olá Skyyang,
por favor, compartilhe o código para 3 colunas. Abaixo segue o exemplo:
Eu quero os dados como: yogesh@gmail.com comunidade 1 visualização apenas comunidade 2 apenas visualização ...... goyal@gmail.com comunidade 1 visualização apenas comunidade 2 visualização apenas ........

Este comentário foi feito pelo moderador no site
Olá, ygoyal,

Para resolver seu problema, aplique o código abaixo:

SubtransposiçãoUnique_2()

Dim xLRow, xLCount As Long

Dim xRg como intervalo

Dim xOutRg como intervalo

Dim xObjRRg como intervalo

Dim xTXT As String

Escurecer xCount As Long

Dim xVRg como intervalo

Dim xC, xI, xI1, xI2 como inteiro

On Error Resume Next

xTxt = ActiveWindow.RangeSelection.Address

Set xRg = Application.InputBox("por favor selecione o intervalo de dados:", "Kutools for Excel", xTxt, , , , , 8)

Definir xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)

Se xRg não for nada, saia do sub

Se (xRg.Rows.Count < 2) Ou _

(xRg.Areas.Count > 1) Então

MsgBox "Seleção inválida", , "Kutools for Excel"

Exit Sub

Se acabar

Set xOutRg = Application.InputBox("por favor selecione o intervalo de saída (especifique uma célula):", "Kutools for Excel", xTxt, , , , , 8)

Se xOutRg não for nada, saia do sub

Application.ScreenUpdating = False

xLCount = xRg.Columns.Count

Para xLRow = 1 Para xRg.Rows.Count

Definir xObjRRg = Range(xRg.Cells(xLRow, 2), xRg.Cells(xLRow, xLCount)).SpecialCells(xlCellTypeConstants)

On Error Resume Next

xC = (xObjRRg.Count Mod 2)

Se xC <> 0 Então

xC = Int(xObjRRg.Count / 2) + 1

Outro

xC = Int(xObjRRg.Count / 2)

Se acabar

xI1 = 1

xI2 = 2

Para xI = 1 Para xC

Intervalo(xObjRRg.Item(xI1), xObjRRg.Item(xI2)). Copiar

xOutRg.Offset(, 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Application.CutCopyMode = False

xOutRg.Value = xRg.Cells(xLRow, 1).Value

Definir xOutRg = xOutRg.Offset(RowOffset:=1)

xI1 = xI1 + (2)

xI2 = xI2 + (2)

Seguinte

Seguinte

Application.ScreenUpdating = True

End Sub



Por favor, tente, espero que possa ajudá-lo!
Este comentário foi feito pelo moderador no site
Olá Bro, O código está funcionando ao contrário. Consulte a captura de tela anexada do requisito. Os dados disponíveis são por linha e deseja transpor os dados em colunas .
Este comentário foi feito pelo moderador no site
Olá, ygoyal,
Desculpe por responder tarde, por favor aplique o seguinte código, por favor, tente!

Sub transposiçãoúnica()

'atualizar por Extendoffice

Dim xLRow Enquanto

Dim i tanto tempo

Dim xCrit As String

Dim xCol como nova coleção

Dim xRg como intervalo

Dim xOutRg como intervalo

Dim xTXT As String

Escurecer xCount As Long

Dim xVRg como intervalo

Dim xFRg, xSRg, xCRg como intervalo

On Error Resume Next

xTxt = ActiveWindow.RangeSelection.Address

Set xRg = Application.InputBox("por favor selecione o intervalo de dados (apenas 3 colunas):", "Kutools for Excel", xTxt, , , , , 8)

Definir xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)

Se xRg não for nada, saia do sub

Se (xRg.Columns.Count <> 3) Ou _

(xRg.Areas.Count > 1) Então

MsgBox "o intervalo usado é apenas uma área com duas colunas", , "Kutools for Excel"

Exit Sub

Se acabar

Set xOutRg = Application.InputBox("por favor selecione o intervalo de saída (especifique uma célula):", "Kutools for Excel", xTxt, , , , , 8)

Se xOutRg não for nada, saia do sub

Definir xOutRg = xOutRg.Range(1)

xLRow = xRg.Rows.Count

Para i = 2 Para xLRow

xCol.Adicionar xRg.Cells(i, 1).Value, xRg.Cells(i, 1).Value

Seguinte

Application.ScreenUpdating = False

Application.ScreenUpdating = False

Para i = 1 Para xCol.Count

xCrit = xCol.Item(i)

xOutRg.Offset(i, 0) = xCrit

Campo xRg.AutoFilter:=1, Criteria1:=xCrit

Set xVRg = xRg.Range("B2:B" & xLRow).SpecialCells(xlCellTypeVisible)

Se xVRg.Count > xCount Então xCount = xVRg.Count

Set xSRg = xRg.Range("B2:B" & xLRow).SpecialCells(xlCellTypeVisible)

Definir xCRg = xOutRg.Offset(i, 1)

Para cada xFRg em xSRg

xFRg. Copiar

xCRg.PasteEspecial

xRg.Range("B1").Copiar

xCRg.Offset(-(i), 0).ColarEspecial

xFRg. Offset(0, 1). Copiar

Definir xCRg = xCRg.Offset(0, 1)

xCRg.PasteEspecial

xRg.Range("c1").Copiar

xCRg.Offset(-(i), 0).ColarEspecial

Definir xCRg = xCRg.Offset(0, 1)

Seguinte

Application.CutCopyMode = False

Seguinte

xRg.Item(1).Copiar

xOutRg.PasteEspecial

xRg.AutoFilter

Application.ScreenUpdating = True

End Sub
Este comentário foi feito pelo moderador no site
Hey Bro, tentei usar este código, mas o excel trava quando executo este código e não consegui ver a saída do código acima. por favor, sugira o que fazer neste caso.
Este comentário foi feito pelo moderador no site
Oi,
O código funciona bem na minha pasta de trabalho, qual versão do Excel você usa?
Este comentário foi feito pelo moderador no site
MS Excel 2016
Este comentário foi feito pelo moderador no site
O código também funciona bem no meu Excel 2016, tente primeiro com alguns dados de intervalo pequeno.
Este comentário foi feito pelo moderador no site
Já testei em 160 registros, mas naquele ainda estava duplicado.
Este comentário foi feito pelo moderador no site
Oi Skyyang, Adoro isso, alguma chance de você conseguir trabalhar para quatro colunas? novamente apenas usando os dois primeiros como comparador, ou melhor ainda a capacidade de escolher o número de colunas antes de selecioná-las? Dei uma olhada no seu script, não teria a menor idéia de como conseguir isso ...
Este comentário foi feito pelo moderador no site
Oi Skyyang, Adoro isso, alguma chance de você conseguir trabalhar para quatro colunas? novamente apenas usando os dois primeiros como comparador, ou melhor ainda a capacidade de escolher o número de colunas antes de selecioná-las? Dei uma olhada no seu script, não teria a menor idéia de como conseguir isso ...
Este comentário foi feito pelo moderador no site
Mano, por favor ajude nisso.
Este comentário foi feito pelo moderador no site
Olá mano, ainda aguardando sua ajuda
Este comentário foi feito pelo moderador no site
Olá
Este comentário foi feito pelo moderador no site
Igual ao Dave, preciso fazer exatamente o oposto disso. Tabela 2 para transpor para a Tabela 1. Tabela de Entrada 2, Tabela de Saída 1.
Este comentário foi feito pelo moderador no site
=INDEX($A$2:$A$16, MATCH(0, COUNTIF($D$1:$D1, $A$2:$A$16), 0)) funcionou para mim para transpor os valores exclusivos de uma coluna para um novo coluna MAS... existe uma maneira de anúncio em uma função de classificação para que a nova coluna criada seja transposta em ordem crescente?


Obrigado!
Este comentário foi feito pelo moderador no site
Precisa obter a mesma saída, mas para as colunas predefinidas a serem selecionadas seria ($A,$B) e precisa da coluna de saída Posição em $D$1.
Se alguém tiver uma ideia seria de grande ajuda!!!!
Este comentário foi feito pelo moderador no site
Oi, podemos adicionar cada linha e dar a saída em uma coluna, com a funcionalidade acima.
Este comentário foi feito pelo moderador no site
Então, eu estou trabalhando para uma empresa. Temos colunas para informações como sobrenome, nome, classificação, seção, número de telefone, endereço. Existe uma maneira de usar uma fórmula semelhante para transpor toda a linha de informações para uma coluna por nomes?
Este comentário foi feito pelo moderador no site
=INDEX($A$2:$A$16, MATCH(0, COUNTIF($D$1:$D1, $A$2:$A$16), 0)) funcionou para mim para transpor os valores exclusivos da coluna A para uma nova coluna MAS ... existe uma maneira de obter todos os valores na coluna B a serem transpostos conforme indicado abaixo:

Data do Pedido do Produto Pedido do Produto Pedido Pedido Pedido Pedido Pedido
KTE 100 3/3/2019 KTE 100 100 100 200 100 150 100
KTO 150 3/3/2019 KTO 150 100 200 100 150 200
KTE 100 3/4/2019 BOT 150 100 200 150 100 200
KTO 100 3/4/2019 COD 200 150 100 150
KTO 200 3/5/2019
KTE 100 3/5/2019
BOT 150 3/5/2019
BOT 100 3/6/2019
KTO 100 3/6/2019
KTE 200 3/6/2019
BOT 200 3/7/2019
COD 200 3/7/2019
KTE 100 3/7/2019
KTO 150 3/7/2019
BOT 150 3/8/2019
KTE 150 3/8/2019
COD 150 3/8/2019
BOT 100 3/9/2019
BOT 200 3/10/2019
COD 100 3/10/2019
KTO 200 3/10/2019
COD 150 3/11/2019
KTE 100 3/11/2019
Este comentário foi feito pelo moderador no site
A macro não funcionou. Ele apenas copiou o conteúdo da célula A1.
Este comentário foi feito pelo moderador no site
Eu tenho um conjunto de dados nas Colunas A (ID exclusivo) - E. Cada linha tem dados com base no ID#, existem várias linhas para cada ID#, mas quero uma linha por ID# com todos os outros dados nas colunas ( teria no mínimo 5 colunas e no máximo 25, dependendo de quantos cada ID único possui). Encontrei um código, mas só funciona para duas colunas. Eu tive que concatenar as quatro colunas (sem incluir ID) e delimitar depois de executar a macro (muito trabalho). Para 15,000 linhas de dados, isso consome mais tempo. Existe uma macro de coluna sem fim que funcionaria? Desde já agradeço a todos pela ajuda!
CÓDIGO DE ID ST CÓDIGO# DATA
Este comentário foi feito pelo moderador no site
Eu tenho um conjunto de dados que tem vários IDs na coluna A e conectou dados na coluna B. Usei a fórmula acima e a alterei um pouco para que estou transpondo as células da coluna B em uma linha com base no ID exclusivo vinculado a ele na coluna A. A fórmula usada para identificar os IDs exclusivos é: =INDEX($A$2:$A$13409, MATCH(0, COUNTIF($D$1:$D1, $A$2:$A$13409), 0)). A fórmula usada para fazer a transposição é: =SEERRO(ÍNDICE($B$2:$B$13409, CORRESP(0, IF($A$2:$A$13409<>$D2, 1, 0)+CONT.SE($D2: D2,$B$2:$B$13409), 0)), "N/A"). Ambos dados no artigo, apenas ligeiramente alterados.

O problema é que meu conjunto de dados na coluna B tem duplicatas, às vezes aparecendo uma após a outra, e preciso que todos os valores da coluna sejam apresentados nas linhas.

A imagem anexada é o que eu gostaria que a tabela mostrasse (este é um tamanho de amostra pequeno, o conjunto de dados verdadeiro tem mais de 13,000 entradas). O que está acontecendo agora é que quando um valor de repetição é encontrado, ele não o contará.
ou seja, a linha 9 para ID 11980 agora mostra apenas 0 -31.79 -0.19 -0.74 N/AN/A .... quando o que eu preciso para mostrar é 0 0 -31.79 -0.19 -0.74 0 0 N/AN/A . ...

Existe uma maneira de contornar esse problema e resolvê-lo?

Obrigado com antecedência!
Este comentário foi feito pelo moderador no site
Você já recebeu uma resposta/resolução para este desafio? Eu tenho o mesmo.
Este comentário foi feito pelo moderador no site
Eu tenho um conjunto de dados que possui 3 colunas apresentadas abaixo:



Coluna A Coluna B Coluna C



País1 Ano1 Valor1

País1 Ano2 Valor2

País1 Ano3 Valor3,



País2 Ano1 Valor1

País2 Ano3 Valor3,

...........



Eu preciso combinar essas 3 colunas em uma tabela assim:

Ano1 Ano2 Ano3 .............................. AnoX



País1 Valor1 Valor2 Valor3

País2 Valor1 #Valor Omisso3

.....
.....
.....

PaísX Valorx ..................





O problema que estou enfrentando é que, para alguns dados na coluna A, não tenho valores para cada ano apenas para alguns. (Por exemplo, o país 2 tem valores ausentes para o ano 2)





Existe uma maneira de contornar esse problema e resolvê-lo?



Obrigado com antecedência!
Este comentário foi feito pelo moderador no site
você pode compartilhar o código se houver 2 colunas a serem copiadas em vez de 1. abaixo está o exemplo.
Não há comentários postados aqui ainda
carregar mais
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL