Match tra 2 colonne |
|
|
Storico discussioni |
|
| Problema di fabio66 |
Salve.
Avendo io 2 colonne excel di etichette
non ordinate io vorrei che esse si confrontassero , diciamo a1
confrontato con tutte le celle B, a2,a3 ecc. e nel momento in qui ci
fosse lo stesso dipo di etichetta nella cella adiacente in 3 colonna
C venisse scritto un codice che io inserisco nella condizione IF
Praticamente come 2 matrici solo che sto tentando di capire come ci
si muove sulla griglia excel e come si scrivono i cicli.
Grazie
se qualquno ha del tempo per mostrarmi la procedura.
Salve |
|
| di Mauro |
Prova a vedere se ti puņ tornare utile:
La
macro esegue un confronto tra la colonna B e la colonna C
preventivamente ordinate, se trova corrispondenza scrive sulla
colonna D.
Sub confronta1()
'
Call PulisciRiga("D")
Columns("B:B").Select
Selection.Sort Key1:=Range("B1"),
Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1,
MatchCase:=False, Orientation:=xlTopToBottom
Columns("C:C").Select
Selection.Sort Key1:=Range("C1"),
Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1,
MatchCase:=False, Orientation:=xlTopToBottom
Range("A1").Select
indi = 1
jndi = 1
indiconfronto = 1
Do While
Range("B" & indi).Text <> ""
Do While ((Range("C"
& jndi).Text <> "") And (Range("B" & indi).Text >
Range("C" & jndi).Text))
jndi = jndi + 1
Loop
If
(Range("B" & indi).Text = Range("C" & jndi).Text) Then
Range("D" & indiconfronto) = Range("B" & indi)
indiconfronto = indiconfronto + 1
End If
indi = indi + 1
Loop
'
End Sub
'Routine che pulisce la
colonna dei risultati
Sub PulisciRiga(RigaDep As String)
'
Columns(RigaDep & ":" & RigaDep).Select
Selection.ClearContents
Range("A1").Select
End Sub
|
|
| Grazie di fabio66 |
Molte Grazie Mauro
per esserti intrresato al
mio problema
sono un profano di vb e sto' cercando di riuscire
ad implementare qualche funzione di excel al difuori dello standard
purtroppo non saro' di aiuto ma penso che questo sito sia di buona
utilita'.
Grazie dinuovo
Saluti. |
|
| |