Excel do Microsoft 365 Excel do Microsoft 365 para Mac Excel 2021 Excel 2021 para Mac Excel 2019 Excel 2019 para Mac Excel 2016 Excel 2016 para Mac Excel 2013 Office para empresas Excel 2010 Excel 2007 Mais...Menos Você pode usar os métodos a seguir para comparar dados em duas Microsoft Excel de planilha e encontrar entradas duplicadas.
Selecione a célula B1 a B5. No Excel 2007 e versões posteriores do Excel, selecione Preencher o grupo Edição e selecione Para baixo. Os números duplicados são exibidos na coluna B, como no exemplo a seguir:
Aviso: A Microsoft fornece exemplos de programação apenas para ilustração, sem garantia expressa ou implícita. Isso inclui, mas não se limita às garantias implícitas de comercialização ou adequação a uma finalidade específica. Este artigo supõe que você está familiarizado com a linguagem de programação que está sendo demonstrada e com as ferramentas usadas para criar e depurar procedimentos. Os engenheiros de suporte da Microsoft podem ajudar a explicar a funcionalidade de um procedimento específico. No entanto, eles não modificarão esses exemplos para fornecer funcionalidades adicionais ou procedimentos de construção para atender aos seus requisitos específicos. Para usar uma Visual Basic para comparar os dados em duas colunas, use as etapas do exemplo a seguir:
Visual Basic for Applications (VBA) é uma linguagem de programação projetada para programas do Microsoft Office, como PowerPoint , Word e Excel. Ele permite que você para criar ferramentas personalizadas , botões e menus que você pode usar para personalizar seus aplicativos do Office. Por exemplo, não há uma ferramenta no Excel que permite que você compare colunas e destacar as diferenças. No entanto, com algum código VBA , você pode criar uma ferramenta útil para esse fim . Coisas que você precisa Excel 2007 ou Excel 2010 Show Mais instruções 1 Clique na guia "Desenvolvedor" no Excel, e , em seguida, clique em " Visual Basic ". Clique em "Inserir ". Clique em " Módulo " para abrir uma nova janela módulo Recorte e cole o seguinte código para a janela : . Sub CompareColumns () Dim Column1 Como faixa Dim Column2 Como faixa ' Avisar usuário para o primeiro intervalo da coluna para comparar ... ' ---------- ------------------------------------------ Set Column1 = Application.InputBox ("Select primeira coluna para comparar " , Type: = 8) ' Verifique se o intervalo que eles forneceram consiste em apenas uma coluna ... Se Column1.Columns . Contagem > 1 Então Do Until Column1.Columns.Count = 1 MsgBox " Você pode selecionar apenas uma coluna " Set Column1 = Application.InputBox ( " Selecione Primeira coluna para comparação " , Type: = 8) loop End If ' Avisar usuário para o segundo intervalo de coluna para comparar ... ' ----------------------------------------------- ----- Set Column2 = Application.InputBox ("Select segunda coluna para comparar " , Type: = 8) ' Verifique se o intervalo que eles forneceram consiste em apenas 1 coluna ... Se Column2.Columns.Count > 1 Então fazer até Column2.Columns.Count = 1 MsgBox " Você pode selecionar apenas uma coluna" Definir Column2 = Application.InputBox ("Select segunda coluna para comparar " , Type: = 8) loop End If 'Check ambos coluna faixas são do mesmo tamanho ... ' ----------------------------------- ---------- Se Column2.Rows.Count < > Column1.Rows.Count Então Do Until Column2.Rows.Count = Column1.Rows . contagem MsgBox " a segunda coluna deve ser do mesmo tamanho que o primeiro " Set Column2 = Application.InputBox ("Select segunda coluna para comparar " , Type: = 8) loop End If "Se colunas inteiras foram selecionados (por exemplo $ AA) , limitar os tamanhos de intervalo para o ' UsedRange da planilha ativa . Isso interrompe a rotina de verificação de toda a Column1.Rows.Count = 65536 Então Set Column1 = Range ( Column1.Cells (1), Column1.Cells ( ActiveSheet.UsedRange.Rows.Count ) ) Set Column2 = Range ( Column2.Cells (1), Column2.Cells ( ActiveSheet.UsedRange.Rows.Count ) ) End If ' executar a comparação e definir células que são os mesmos para amarelo ' ---------------------------------------------- ------------------ Dim intCell As Long Para intCell = 1 To Column1.Rows.Count Se Column1.Cells ( intCell ) = Column2.Cells ( intCell ) Então ( intCell ) . Interior.Color = vbYellow Column2.Cells ( intCell ) . Interior.Color = vbYellow End If Próxima End Sub Pressione " F5 " para executar a rotina e comparar as colunas. |