Comment lister toutes les positions d'une variable dans une liste?

Question

J'ai une grande liste de chaînes de texte. Je sais que certaines chaînes se produisent plus d'une fois dans cette liste. La fréquence avec laquelle les chaînes se produisent se trouve dans la colonne suivante.

Maintenant, disons que la chaîne de texte "bonjour" se produit 17 fois. Comment pourrais-je obtenir toutes les positions de ce texte dans la liste?

Toute aide est appréciée.

Answer 1

Asuming que toutes vos chaînes sont dans une colonne, vous pouvez ajouter une deuxième colonne avec leur position (numéro de ligne) et faire un tableau croisé dynamique sur les cordes affichant les chefs d'accusation. Pour obtenir la position d'une chaîne qui vous intéresse, utilisez la fonction de zoom de la table pivotante (double-cliquez sur le nombre à côté d'une chaîne) pour créer une nouvelle feuille avec tous les détails dossiers - et la position est affichée

espoir qui aide

Bonne serrure

EDIT après les commentaires échangés:

Je pencherais pour une solution qui scanne vos données seulement 1 fois et non récursive , copie valeurs à une ing seconde feuille:

for each string in sourcetable 
    if found in targettable 
     increase targettable.counter by 1 (remark: in column_2) 
    else 
     put sourcetable.string at end of targettable 
     put "1" in targettable.counter (remark: occurence = 1 in column_2) 
    endif 
    put sourcetable.index into targettable.column(counter+2) 
next 

jusqu'à présent métacode .... avez-vous besoin de plus d'aide au code VBA en fait cela?

EDIT 2

OK .... fait une & rapide sale ....

Sub CountString() 
Dim S As Range, T As Range, Idx As Long, Jdx As Long 

    Set S = Worksheets("Sheet1").[A2] ' first row is header 
    Set T = Worksheets("Sheet2").[A2] ' first row is header 
    Idx = 1 

    Do While S(Idx, 1) <> "" 
     Jdx = FindInRange(T, S(Idx, 1)) 
     If T(Jdx, 1) = "" Then 
      T(Jdx, 1) = S(Idx, 1) 
      T(Jdx, 2) = 1 
      T(Jdx, 3) = Idx 
     Else 
      T(Jdx, 2) = T(Jdx, 2) + 1 
      T(Jdx, T(Jdx, 2) + 2) = Idx 
     End If 
     Idx = Idx + 1 
    Loop 
End Sub 

Function FindInRange(R As Range, A As String) As Long 
Dim Idx As Long 

    Idx = 1 
    Do While R(Idx, 1) <> "" 
     If R(Idx, 1) = A Then 
      Exit Do 
     End If 
     Idx = Idx + 1 
    Loop 
    FindInRange = Idx 
End Function 

testé avec 500 mots de "Lorem ipsum" - prend supérieure à 1 seconde sortie en sheet_2 ressemble

String  Count Position ...               
Lorem  1  1               
ipsum  6  2  45  65  232  323  462     
dolor  5  3  42  214  321  335       
sit   6  4  79  148  249  295  415     
amet   6  5  80  149  250  296  416     
consectetur 8  6  117  288  298  396  457  473  486 
adipiscing 3  7  180  402           

espoir qui aide

Answer 2

Pieter,

Check out this post of Stack Overflow. J'ai également essayé d'ajuster leur code d'échantillon pour correspondre à votre cas, je suis désolé cependant que cela peut ne pas compiler, je ne peux pas le tester pour le moment et mon VBA est un peu rouillé, mais vous avez l'idée.

Function CheckValues1(byval columnToCheck as Integer, byval stringToFind as String) as Integer() 
    dim rwIndex As Integer 
    dim index as Integer 
    dim occurrences() As Integer 
    index = 0 

    For rwIndex = 0 to Cells(Rows.Count, columnToCheck).End(xlUp).Row 

     ReDim Preserve occurrences(0 to index) 

     If Cells(rwIndex, columnToCheck).Value = stringToFind Then 
      occurrences(index) = rwIndex 
      index = index + 1 
     End If 

    Next rwIndex 

    dim output as String 
    output = output & (Len(occurrences)-1) & " occurrences found." & vbcrlf & vbcrlf 
    For index = 0 to LBound(occurrences) 

     output = output & "Line: " & index & vbcrlf 

    Next index 
    MsgBox output 

End Sub 

Cette fonction retourne un tableau de toutes les occurences pour lesquels vous pouvez gérer mais votre comme. Vous avez juste besoin de passer dans la chaîne que vous recherchez et le numéro de colonne à rechercher à l'intérieur.

J'espère que cela aide!

Tony