Este fórum está sendo desativado

[edson1411]

como fazer contagem de repetição das dezenas entre dois arquivos? arquivo adicionado abaixo

[babdallas]

Poderia dar alguns exemplo de resultado esperado só para ver se entendi corretamente a sua necessidade? De forma manual mesmo, mas explicando oq vc fez. Por favor.

[edson1411]

Poderia dar alguns exemplo de resultado esperado só para ver se entendi corretamente a sua necessidade? De forma manual mesmo, mas explicando oq vc fez. Por favor.

Sr.babdallas,coloquei uma nova planilha.Uma explicaçao,tenho dois arquivo um com 2 mil jogos,com 15 colunas, outro com 100 jogos, 15 colunas.Quero saber a maior quantidade de repetição das dezenas "de cada jogo" do arquivo de 100 jogos,encontradas ou repetidas no arquivo de 2 mil jogos,do 1º ao 2000º.Grato .

[babdallas]

Não sei se é isso o que deseja. Caso não tenha a função UNIRTEXTO, estou colocando uma UDF em VBA feita pelo Fernando Fernandes para que você possa utilizar.

Código: Selecionar todos

'====================================================================
'Nome.........: UnirTexto *(Criada e incluída no Excel 2016, mas ausente nas outras versões)
'Data.........: 29/03/2016 (dmy)
'Autor........: Fernando Fernandes
'Contato......: Fernando.Fernandes@outlook.com.br
'Descrição....: Concatena todos os textos informados no último parâmetro,
'               usando o delimitador para separá-los, ignorando ou não as células vazias
'Forum........: www.Planilhando.com.br
'====================================================================
Public Function UnirTexto(ByVal Delimitador As String, _
                          ByVal IgnorarVazios As Boolean, _
                          ParamArray Celulas() As Variant) As Variant
On Error GoTo TratarErro
Dim Intervalo   As Variant
Dim Resultado   As String
Dim i           As Long
Dim j           As Long
Dim k           As Long
   
    If UBound(Celulas, 1) < LBound(Celulas, 1) Then
        UnirTexto = VBA.Conversion.CVErr(xlErrValue)
        Exit Function
    End If
   
    For i = LBound(Celulas, 1) To UBound(Celulas, 1) Step 1

        If VBA.Information.IsArray(Celulas(i)) Then
       
            Intervalo = Celulas(i)
            For j = LBound(Intervalo, 1) To UBound(Intervalo, 1) Step 1
                For k = LBound(Intervalo, 2) To UBound(Intervalo, 2) Step 1
                    If Not VBA.Information.IsError(Intervalo(j, k)) Then
                        If Not VBA.Strings.Trim(Intervalo(j, k)) = vbNullString Then
                            Resultado = Resultado & Delimitador & Intervalo(j, k)
                        End If
                    End If
                Next k
               
            Next j
           
        Else
       
            If Not VBA.Information.IsError(Celulas(i)) Then
                If Not VBA.Strings.Trim(Celulas(i)) = vbNullString Then
                    Resultado = Resultado & Delimitador & Celulas(i)
                End If
            End If
           
        End If
       
    Next i

    If VBA.Strings.Len(Resultado) > VBA.Strings.Len(Delimitador) Then
        Resultado = VBA.Strings.Right(Resultado, VBA.Strings.Len(Resultado) - VBA.Strings.Len(Delimitador))
    End If
    UnirTexto = Resultado
    Exit Function
TratarErro:
    UnirTexto = VBA.Conversion.CVErr(xlErrValue)
End Function

[edson1411]

Sr. babdallas,não é isso, assim que souber pois sou novato no forum, retirarei o tópico, e enviarei uma nova explicação," agradeço pela planilha sequencia".

[babdallas]

Não precisa retirar o tópico. Explique novamente e anexe um exemplo dizendo qual o resultado esperado. Não precisa colocar o arquivo inteiro. Coloque apenas alguns exemplos, diga o resultado esperado e explique como chegou nele.