Comparer des valeurs dans Excel VBA

Je suis en train de comparer des cellules A1, B1 et s'il est vrai remplir la cellule F1 avec l'A1 valeur. Mais indépendamment de mes valeurs d'entrée si la condition devient vraie.

Sub Macro3()
    Dim i As Integer
    i = 1
    For i = 1 To 10
        If (Range("A" & i).Select = Range("B" & i).Select) Then
            Range("A" & i).Select
            Selection.Copy
            Range("F" & i).Select
            ActiveSheet.Paste
        End If
    Next i      
End Sub

Êtes-vous d'exécuter le code, avec la feuille, vous pouvez adapter la feuille de calcul active? Quelles valeurs se trouvent dans A1 et B1 qui ne sont pas les mêmes et pourtant déclenchement de la Véritable état? Pourquoi pas un simple CAS de test? 🙂

InformationsquelleAutor venkat | 2011-10-26

3

Au lieu de sélectionner, copier et coller, vous pouvez comparer la Valeur de la propriété de l'cellules, puis définissez la colonne F de la Valeur en conséquence:
```
Dim i As Integer
For i = 1 To 10
    If Range("A" & i).Value = Range("B" & i).Value Then
        Range("F" & i).Value = Range("A" & i).Value
    End If
Next
```
- Merci pour ce très utile suggestion.. principal problème que j'ai est "if Range("A" & i).Value = Range("B" & i).Valeur " cette condition ne parvient pas indépendamment des valeurs de A et de la colonne B
- Vous dites qu'il n'y a pas de match, même lorsque les valeurs sont les mêmes? Quelque chose n'est pas ce que vous pensez que c'est...
- Bonne réponse, Nick +1
- williams:- oui, c'était le cas auparavant....Mais qui fonctionne très bien maintenant...que le problème est résolu...j'ai complété le code..Maintenant, le problème est avec la PERFORMANCE, j'ai utiliser 2 feuilles pour effectuer la tâche. Ici, j'ai comparer chaque ligne d'excel 1 avec toutes les lignes d'excel 2. donc, je suis coincé dans la boucle for...excel se bloque, comme le nombre de ligne est de haute. Si je peux obtenir des suggestions pour améliorer le rendement
InformationsquelleAutor CtrlDot
0

Considérer cela comme un compliment à Nick de réponse (accepter son si vous trouvez qu'il est au travail, qui doit). Je voulais aider à expliquer certaines des choses qui sont mal dans votre code.

Avant de CORRIGER:
```
Sub Macro3()
    Dim i As Integer
    i = 1
    For i = 1 To 10
        If (Range("A" & i).Select = Range("B" & i).Select) Then
            Range("A" & i).Select
            Selection.Copy
            Range("F" & i).Select
            ActiveSheet.Paste
        End If
    Next i
End Sub
```
APRÈS CORRECTION
```
Sub Macro4()
    Dim i As Long
    For i = 1 To 10
        If Range("A" & i).Value = Range("B" & i).Value Then
            Range("F" & i).Value = Range("A" & i).Value
        End If
    Next
End Sub
```
POINTS:
1. Utilisation de Long au lieu d'un Entier (petite optimisation depuis VBA vous permet de convertir le type int pour une longue quand même)
2. Pas nécessaire de déclarer que i = 1 deux fois dans une rangée
3. Vous devriez être en comparaison de valeurs, et non pas simplement en sélectionnant les cellules. Il est rarement, sinon jamais, la nécessité d'utiliser le .Mot-clé choisi. Vous pouvez accéder à toutes les propriétés de l'objet directement.
4. Copier et coller est une opération lourde. Puisque vous êtes dans VBA, peut aussi bien affecter la valeur qui est dans Une pour la cellule dans la colonne B. Il est plus rapide, et plus efficace.
J'espère que cette aide. BTW, vous pouvez simplement entrer:
```
=IF(A1=B1,A1,"")
```
en F1 et faites glisser la formule vers le bas pour obtenir un résultat semblable.

InformationsquelleAutor aevanko

Vous pouvez utiliser un tableau de type variant pour résoudre votre problème de performance que vous vous élevez au-dessus. Ce code sera exécuté le même que les Pseudos sauf qu'il va sauter les blancs de la cellule, c'est à dire qu'il va

mise à jour de la valeur F si A et B sont de la même
ignorer les mises à jour si la cellule est vide
laissez le F valeurs en place si A<>B

Il n'était pas clair pour moi comment vous vous comparez des lignes à travers deux feuilles, pouvez-vous développer sur ce point?

    Sub MyArray()
    Dim X As Variant
    Dim Y As Variant
    Dim lngrow As Long
    X = Range([a1], Cells(Rows.Count, "B").End(xlUp))
    Y = Range([f1], [f1].Offset(UBound(X, 1) - 1, 0))
    For lngrow = 1 To UBound(X, 1)
       If Len(X(lngrow, 1)) > 0 Then
       If X(lngrow, 1) = X(lngrow, 2) Then Y(lngrow, 1) = X(lngrow, 1)
       End If
    Next
    Range([f1], [f1].Offset(UBound(X, 1) - 1, 0)) = Y
    End Sub

InformationsquelleAutor brettdj

Vous devez vous connecter pour publier un commentaire.