Vergleichen von Werten in Excel-VBA
Ich versuche zu vergleichen, die die Zelle A1 mit B1 und wenn es wahr ist, füllen Sie die Zelle F1 mit dem A1-Wert. Aber egal, mein input-Werte, die die if-Bedingung wahr wird.
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
Laufen Sie den code mit der Platte die Sie anpassen wollen, wie das aktive Tabellenblatt? Welche Werte liegen in A1 und B1, sind nicht die gleichen, aber die trigger die True-Bedingung? Warum nicht eine einfache IF-test? 🙂
InformationsquelleAutor venkat | 2011-10-26
Du musst angemeldet sein, um einen Kommentar abzugeben.
Statt der Auswahl, kopieren und einfügen, können Sie vergleichen Sie die Value-Eigenschaft der Zellen, dann legen Sie die F-Spalte-Wert entsprechend:
Sie sagen, es ist kein Spiel, auch wenn die Werte identisch sind? Etwas ist nicht, was Sie denken, es ist...
Gute Antwort, Nick +1
williams: ja, das war der Fall vorher....Aber das funktioniert jetzt...das problem ist gelöst...ich habe den code..Jetzt ist das problem mit der LEISTUNG habe ich jeweils 2 Blätter um die Aufgabe zu erfüllen. Hier Vergleiche ich jede Zeile der excel 1 mit allen aktiven Zeilen von excel 2. also ich bin immer gefangen in der for-Schleife...stürzt excel die Anzahl der Zeilen ist hoch. Ob ich alle Vorschläge zur Verbesserung der Leistung
InformationsquelleAutor CtrlDot
Betrachten dies als ein Kompliment an Nick ' s Antwort (akzeptieren sein, wenn Sie finden, dass es funktioniert, und das sollten Sie). Ich wollte helfen, zu erklären, einige der Dinge, die falsch sind in Ihrem code.
Vor dem UPDATE:
NACH UPDATE
PUNKTE:
Ich hoffe, das hilft. BTW, man kann einfach eingeben:
in der F1, und ziehen Sie die Formel nach unten, um ein ähnliches Ergebnis.
InformationsquelleAutor aevanko
Können Sie ein variant-array, um Ihr performance-Problem, dass Sie emporzuheben. Dieser code wird ausgeführt, das gleiche wie Kerben, außer es wird skip blanks Zelle, dh es wird
Es war nicht klar, um mich, wie Sie den Vergleich von Zeilen zwischen zwei Blättern, können Sie auf diesem erweitern?
InformationsquelleAutor brettdj