Pesquisa de lista do Excel, retornando vários valores separados por um “|”

1

OK ...

Por isso, tenho uma lista de produtos, com o nome do produto como este: "CC973" na coluna A., ou seja:

A
CC969
CC972
CC973
CC975
CC976
CC977
CC978
CC996
CC997
CC998
CC999
DS009
DS022
DS046
DS088
DS096

Eu também tenho uma lista de imagens de produtos como esta na coluna A de outra planilha "Nomes de imagem! $ A $ 2: $ A $ 617" (todos os dados estão nessa coluna).:

A
CC967 CC968 CC969 (Packaging).jpg
CC967 CC968 CC969.jpg
CC972 CC973 (Packaging).jpg
CC972 CC973 (Rear).jpg
CC972 CC973.jpg
CC975 CC976.jpg
CC977 CC978 CC979 (Packaging).jpg
CC977 CC978 CC979.jpg
CC980 CC981 CC982 (Packaging).jpg
CC980 CC981 CC982 (Rear).jpg
CC980 CC981 CC982 (Side).jpg

O que eu gostaria de fazer é verificar o produto na primeira lista e retornar todas as imagens que contenham esse nome de produto separadas por um "|".

Eu gostaria do nome do arquivo sem texto extra, ou seja, no caso apenas "CC972 CC973.jpg" ser retornado primeiro.
Portanto, neste exemplo, gostaria que o seguinte fosse retornado:

CC972 CC973.jpg|CC972 CC973 (Packaging).jpg|CC972 CC973 (Rear).jpg

Tenho certeza de que isso deve ser possível, alguém pode aconselhar uma maneira de fazer isso?

EDITAR Eu tentei isso:

=Lookup_concat(A2,'Image names'!$A$1:$A$617, 'Image names'!$A$1:$A$617)

Mas ele retorna #name?

Eu acho que para fazer esse trabalho eu teria que usar o VBA com o seguinte código:

Function Lookup_concat(Search_string As String, _
Search_in_col As Range, Return_val_col As Range)
Dim i As Long
Dim result As String
For i = 1 To Search_in_col.Count
If Search_in_col.Cells(i, 1) = Search_string Then
result = result & " " & Return_val_col.Cells(i, 1).Value
End If
Next
Lookup_concat = Trim(result)
End Function

no entanto, não acho que o excel 2008 tenha um editor do VBA!

Eu não fiz planilhas corretamente desde 2003 !!!!

    
por Peter Kirkwood 22.06.2015 / 13:27

1 resposta

1

Nos seus comentários, você mencionou que agora tem acesso a uma versão do Excel que pode executar o VBa.

Isso é o VBa e faz o que eu acho que você quer. Eu incluí as capturas de tela.

Deixei alguns comentários no código, a primeira seção que você pode precisar atualizar, mas os comentários devem ajudá-lo.

Lembre-se de fazer um backup do arquivo primeiro, pois não há recurso de desfazer!

Com base nos seus comentários, estou usando os nomes reais da planilha!

Option Explicit
Sub WalkThePlank()

'hear ye, only edit this top past of walk the plank
'Remember scurvy sea dog, there is no UNDO so take a copy of the file first as a back up

Dim worksheet1 As String
worksheet1 = "Image names"        'The name of the work sheet which has only codes

Dim worksheet1Column As String
worksheet1Column = "A"       'Argghh, the name of the column you use in worksheet1

Dim worksheet2 As String
worksheet2 = "LMFD products"        'The name of the worksheet with things like CC972 CC973 (Rear).jpg

Dim worksheet2Column As String
worksheet2Column = "A"       'Argghh, the name of the column you use in worksheet2

Dim resultsWorksheet As String
resultsWorksheet = "LMFD products"    'C'pan, this is where you put the results

Dim resultsWorksheetColumn As String
resultsWorksheetColumn = "C"       'Argghh, the name of the column you use in worksheet2



'hear ye, walk below and I'll feed ye to the sharks

Application.ScreenUpdating = False
Dim row As Integer
row = 2                        'The starting row with values to be looked up

Do While (Worksheets(worksheet1).Range(worksheet1Column & row).Value <> "")
    Dim result As String
    result = ""
    Dim lookupValue As String
    lookupValue = Worksheets(worksheet1).Range(worksheet1Column & row).Value

    Dim otherRow As Integer
    otherRow = 2                   'The starting row of the .jpg colum

    Dim startString As String
    Dim endString As String
    startString = ""
        endString = ""
    Do While (Worksheets(worksheet2).Range(worksheet2Column & otherRow).Value <> "")

        Dim repoValue As String
        repoValue = Worksheets(worksheet2).Range(worksheet2Column & otherRow).Value

        If (InStr(repoValue, lookupValue)) Then
        'we got treasure cap'ain
            If (InStr(repoValue, "(")) Then
                endString = Trim(endString) & Trim(repoValue) & "|"
            Else
                startString = Trim(startString) & Trim(repoValue) & "|"
            End If
        End If

        otherRow = otherRow + 1
    Loop

'check on the treasure, will we fine riches
    If (startString <> "" And endString <> "") Then
        result = Trim(startString & Left(endString, Len(endString) - 1))
        Else
        If (startString = "" And endString <> "") Then
            result = Trim(Left(endString, Len(endString) - 1))
        End If
        If (endString = "" And startString <> "") Then
            result = Trim(Left(startString, Len(startString) - 1))
        End If
    End If

    Worksheets(resultsWorksheet).Range(resultsWorksheetColumn & row).Value = result ' X Marks the spot
    row = row + 1
Loop

End Sub

Minha planilha1 (antes da execução do VBa)

Eminhaplanilha2

E o resultado é

Como eu adiciono o VBA no MS Office?

    
por 24.06.2015 / 09:34