¡En VBA Excel, cómo escribir cuando se busca una coincidencia entre dos matrices!
¡Esto sólo se puede hacer con un bucle!
Doble bucle.
Opción explícita
Subcomando privado1_Click()
Atenuar A, B
Atenuar C() como cadena
Atenuar i como entero
Atenuar j como entero
Atenuar n como entero
A = Array("A", "B", "C" , "D")
B = Array("A", "B")
'Usar anidamiento de bucles para comprobar
n = -1 p>
Para i = 1 a UBound(A)
Para j = 1 a UBound(B)
Si A(i) = B(j) entonces salga para
Siguiente j
Si j >UBound(B) Entonces
n = n + 1
ReDim Preserve C(n) como cadena
C(n) = A(i)
Finalizar si
Siguiente i
'Matriz de salida C
Si n > - Entonces
Para i = 0 a UBound(C)
Imprimir C(i)
Siguiente i
Else
Imprimir "¡La matriz C no tiene elementos!"
End If
End Sub