/ / Utiliser le résultat d'une boucle dans une autre boucle - excel, vba, excel-vba, boucles

Utilisez le résultat d'une boucle dans une autre boucle - excel, vba, excel-vba, boucles

Je veux boucler chaque numéro de la colonne A àcolonne B. S'il y a correspondance, ce nombre doit être bouclé dans la colonne C. S'il y a une correspondance, je veux que les résultats soient retournés dans les colonnes E et F. Chaque colonne aura un nombre variable de lignes. Il peut également y avoir plusieurs résultats.

Dans mon exemple, le numéro 1 de la colonne A est bouclé dans la colonne B. Si une correspondance est trouvée, 1 est maintenant bouclé dans la colonne C. S'il y a correspondance, les colonnes E et F = C et D.

Exemple

Réponses:

0 pour la réponse № 1

Si vos données sont organisées comme une image ci-dessous, alors le code serait comme ceci.

Sub test()
Dim vDB1, vDB2, vDB3, vR()
Dim i As Long, j As Long, k As Long, n As Long

vDB1 = Range("a2", Range("a" & Rows.Count).End(xlUp))
vDB2 = Range("b2", Range("b" & Rows.Count).End(xlUp))
vDB3 = Range("c2", Range("d" & Rows.Count).End(xlUp))
Range("e2:f2").Resize(Rows.Count - 1) = Empty
For i = 1 To UBound(vDB1, 1)

For j = 1 To UBound(vDB2, 1)
If vDB1(i, 1) = vDB2(j, 1) Then
For k = 1 To UBound(vDB3, 1)
If vDB1(i, 1) = vDB3(k, 1) Then
n = n + 1
ReDim Preserve vR(1 To 2, 1 To n)
vR(1, n) = vDB3(k, 1)
vR(2, n) = vDB3(k, 2)
End If
Next
End If
Next j
Next i
If n > 0 Then
Range("e2").Resize(n, 2) = WorksheetFunction.Transpose(vR)
End If

End Sub

entrer la description de l'image ici


0 pour la réponse № 2

Voici un code qui devrait faire l'affaire. Mais si les valeurs Tab1 / Tab2 ne sont pas uniques, il peut effectuer une recherche plusieurs fois. Par exemple, s'il y avait 1 à la place de 9 dans l'onglet 2, cela afficherait la ligne avec 1 deux fois dans l'onglet 4. Si vous voulez éviter cela, vous devrez modifier mon code

Set tab1_list = Sheets("sheet1").Range("B6:B10")
Set tab2_list = Sheets("sheet1").Range("C6:C10")
Set tab3_list_lookup = Sheets("sheet1").Range("E6:E10")
Set Tab3_List_value = Sheets("sheet1").Range("F6:F10")

Set output_location = Sheets("sheet1").Range("H6")

For Each cell1 In tab1_list
For Each cell2 In tab2_list

If cell1.Value = cell2.Value Then

For index_no = 1 To tab3_list_lookup.Cells.Count

If tab3_list_lookup.Cells(index_no).Value = cell2.Value Then

output_location.Value = tab3_list_lookup.Cells(index_no).Value
output_location.Offset(0, 1) = Tab3_List_value.Cells(index_no).Value
Set output_location = output_location.Offset(1, 0)

End If

Next index_no

End If

Next cell2


Next cell1