Come posso far confrontare in exel avendo 15 colonne
contenenti ognuna 5 celle, se alcune contengono 2 valori uguali ?
Grazie se qualcuno mi può aiutare.
Moderatori: Anthony47, Flash30005
Sub ContrDoppie()
Range("A1:O5").ClearFormats
ColN = 32
For CC = 1 To 14
Dim VN1(5) As Integer
Dim VN2(5) As Integer
For RR1 = 1 To 5
VN1(RR1) = Cells(RR1, CC).Value
Next RR1
For CC2 = CC + 1 To 15
Conta = 0
For RR1 = 1 To 5
VN2(RR1) = Cells(RR1, CC2).Value
For Nv = 1 To 5
If VN1(Nv) = VN2(RR1) Then
Conta = Conta + 1
Mn1 = Mn2
Mn2 = Nv
Mr1 = Mr2
Mr2 = RR1
If Conta > 1 Then
Cells(Mn1, CC).Interior.ColorIndex = ColN + CC
Cells(Mn2, CC).Interior.ColorIndex = ColN + CC
Cells(Mr1, CC2).Interior.ColorIndex = ColN + CC
Cells(Mr2, CC2).Interior.ColorIndex = ColN + CC
End If
GoTo NRR
End If
Next Nv
NRR:
Next RR1
Next CC2
Next CC
End Sub
For CC = 1 To 14 '<<<< puoi portare a 255 con office 2003 e 16.383 con office 2007
Dim VN1(5) As Integer
Dim VN2(5) As Integer
For RR1 = 1 To 5
VN1(RR1) = Cells(RR1, CC).Value
Next RR1
For CC2 = CC + 1 To 15 '<<<< le colonne della precedente riga-codice + 1
matlecc ha scritto:Abbi pazienza ma non sono una cima con Excel, è un problema per te semplificarmi il tutto
in modo che io possa aprire il file e sostituire i numeri con una reale estrazione ?
Torna a Applicazioni Office Windows
Chrome: due profili uguali aperti contemporaneamente Autore: franco11 |
Forum: Software Windows Risposte: 1 |
Inserire 2 valori nella stessa cella Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 2 |
Excel: formula automatica per evidenziare prodotto scaduto Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 3 |
Salvare file excel in formato html escludendo le immagini Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 10 |
formula excel non visualizza risultato Autore: tommasog |
Forum: Applicazioni Office Windows Risposte: 6 |
Visitano il forum: Nessuno e 79 ospiti