Dúvidas sobre cálculos, funções simples e aninhadas, fórmulas matriciais, etc.
Por babdallas
#64617
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 agradeceu por isso
Por edson1411
#64649
babdallas escreveu: 13 Mai 2021 às 23:38 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 .
Por babdallas
#64654
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
Você não está autorizado a ver ou baixar esse anexo.
edson1411 agradeceu por isso
Por edson1411
#64670
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".
Por babdallas
#64672
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.
Fórmulas SE

Olá, @Wieniawski . Aparentemente n&ati[…]

boa noite a todos, sou novato em uso de VBA, estou[…]

Prezados boa noite, gostaria de saber se e poss&ia[…]

data EMPOLAMENTO PEDIDO ocupação[…]

Rastreabilidade de Dados

Boa Tarde! Funcionamento atual: Ao inserir dad[…]

#vba nao roda no excel online Pessoal Tenho uma p[…]

Boa tarde, pessoal. Preciso de ajuda para uma mac[…]

Boa tarde pessoal! Eu tenho uma planilha que cont&[…]