/ / Use o resultado de um loop em outro loop - excel, vba, excel-vba, loops

Use o resultado de um loop em outro loop - excel, vba, excel-vba, loops

Quero fazer um loop em cada número da coluna A acoluna B. Se houver uma correspondência, esse número será repetido na coluna C. Se houver uma correspondência, desejo que os resultados sejam retornados nas colunas E e F. Cada coluna terá uma quantidade variável de linhas. Também pode haver vários resultados.

No meu exemplo, o número 1 da coluna A é repetido pela coluna B. Se uma correspondência for encontrada 1 agora é repetida pela coluna C. Se houver uma correspondência, as colunas E e F = C e D.

Exemplo

Respostas:

0 para resposta № 1

Se seus dados estiverem organizados como na figura abaixo, o código será assim.

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

insira a descrição da imagem aqui


0 para resposta № 2

Aqui está um código que deve fazer o trabalho. Mas se os valores de Tab1 / Tab2 não forem exclusivos, ele poderá fazer uma pesquisa várias vezes. Por exemplo, se houvesse 1 no lugar de 9 na guia 2, ele mostraria a linha com 1 duas vezes na guia 4. Se você quiser evitar isso, precisará modificar meu código

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