Cercare a quali valori è associata una determinata stringa

[bkfsec]

Salve,

ho la colonna A con i valori: SA, SD, SC, SD, SC(valori ripetuti).
la colonna B con 3, 5, 4, 7, 6 , quindi la corrispondenza tra le righe è
SA->3
SD->5
SC->4
SD->7
SC->6

Io dovrei mostrare in modo univoco quali valori di A sono associati a quelli di B
esempio:
SA->3
SD->5,7
SC->4,6

Grazie

[patel]

allega un file ods di esempio con i dati ed il risultato desiderato

[bkfsec]

Ciao,
in allegato l'esempio.
Grazie.

[patel]

si può fare con una macro legata alla posizione della tabella che deve essere quella del file originale, l'esempio allegato è significativo in tal senso ?

[bkfsec]

L'esempio è significativo la tabella riepilogativa appartiene allo stesso file.

[patel]

Codice: Seleziona tutto

Sub sintesi()
Dim Matrice()
Doc = ThisComponent
Sheet = Doc.Sheets(0)
c = Sheet.createCursor
c.gotoEndOfUsedArea(false)
LastRow = c.RangeAddress.EndRow  
rigainizio = 4
colinizio = 3
coldest = 8
NumMax = LastRow-rigainizio + 1
ReDim Matrice(1 To NumMax, 1 To 2)
' --------- riempio la matrice
For I = 1 To NumMax
  Matrice(I,1) = Sheet.getCellByPosition(colinizio, rigainizio + I -1).string
  Matrice(I,2) = Sheet.getCellByPosition(colinizio + 2, rigainizio + I -1).string
Next
' ------------ ordino la matrice
For I = 2 To NumMax
    If Matrice(I, 1) < Matrice(I - 1, 1) Then
        A = 1
        Do Until Matrice(A, 1) > Matrice(I, 1)
            A = A + 1
        Loop
        Fine = A
        A1 = Matrice(I, 1)
        A2 = Matrice(I, 2)
        For A = I To Fine + 1 Step -1
            Matrice(A, 1) = Matrice(A - 1, 1)
            Matrice(A, 2) = Matrice(A - 1, 2)
        Next
        Matrice(Fine, 1) = A1
        Matrice(Fine, 2) = A2
    End If
Next
dr = rigainizio
'------------tabella riassuntiva
For I = 2 To NumMax
  If StrComp(Matrice(I, 1) , Matrice(I-1, 1), 0) = 0 Then
    Matrice(I, 2) = Matrice(I-1, 2) & "," & Matrice(I, 2)
  else
    Sheet.getCellByPosition(coldest, dr).string = Matrice(I-1, 1) 
    Sheet.getCellByPosition(coldest+1, dr).string = Matrice(I-1, 2) 
    dr = dr+1
  endif
Next
Sheet.getCellByPosition(coldest, dr).string = Matrice(I-1, 1) 
Sheet.getCellByPosition(coldest+1, dr).string = Matrice(I-1, 2) 

End Sub

sotto la tabella non ci deve essere niente

[bkfsec]

Grazie Mille, l'unica cosa è che ripete i valori. Allego il file con la macro registrata

[patel]

Codice: Seleziona tutto

Sub sintesi()
Dim Matrice()
Doc = ThisComponent
Sheet = Doc.Sheets(0)
c = Sheet.createCursor
c.gotoEndOfUsedArea(false)
LastRow = c.RangeAddress.EndRow  
rigainizio = 4
colinizio = 3
coldest = 8
NumMax = LastRow-rigainizio + 1
ReDim Matrice(1 To NumMax, 1 To 2)
For I = 1 To NumMax
  Matrice(I,1) = Sheet.getCellByPosition(colinizio, rigainizio + I -1).string
  Matrice(I,2) = Sheet.getCellByPosition(colinizio + 2, rigainizio + I -1).string
Next
For I = 2 To NumMax
    If Matrice(I, 1) < Matrice(I - 1, 1) Then
        A = 1
        Do Until Matrice(A, 1) > Matrice(I, 1)
            A = A + 1
        Loop
        Fine = A
        A1 = Matrice(I, 1)
        A2 = Matrice(I, 2)
        For A = I To Fine + 1 Step -1
            Matrice(A, 1) = Matrice(A - 1, 1)
            Matrice(A, 2) = Matrice(A - 1, 2)
        Next
        Matrice(Fine, 1) = A1
        Matrice(Fine, 2) = A2
    End If
Next
dr = rigainizio
For I = 2 To NumMax
  If StrComp(Matrice(I, 1) , Matrice(I-1, 1), 0) = 0 Then
    p=Matrice(I-1, 2)
    s= Matrice(I, 2)
    if instr(Matrice(I-1, 2),Matrice(I, 2)) = 0 then
       Matrice(I, 2) = Matrice(I-1, 2) & "," & Matrice(I, 2)
    else
       Matrice(I, 2) = Matrice(I-1, 2
    end if
  else
    Sheet.getCellByPosition(coldest, dr).string = Matrice(I-1, 1) 
    Sheet.getCellByPosition(coldest+1, dr).string = Matrice(I-1, 2) 
    dr = dr+1
  endif
Next
Sheet.getCellByPosition(coldest, dr).string = Matrice(I-1, 1) 
Sheet.getCellByPosition(coldest+1, dr).string = Matrice(I-1, 2) 
End Sub

[bkfsec]

Grazie mille!