Codierung while-Schleifen in VBA zum Kopieren und Einfügen Wert, der die Schleife beendet - Excel-VBA, Schleifen, VBA, Excel

Ich habe zwei Datenspalten, die ich vergleichen und dann einen Wert aus einer Zelle extrahieren möchte, sobald er kleiner ist als die Zelle rechts.

Wenn A kleiner als B ist, kopieren Sie den Wert der Spalte Azu C1. Ich verstehe, dass eine while-Schleife bei der Überprüfung helfen kann, aber ich bin nicht sicher, wie Sie die Überprüfung beenden und dann den Wert aus der Zelle in Spalte A übernehmen und in eine neue Zelle einfügen können.

Zum Beispiel: Spalte A 1,00, 1,50, 1,75, 1,95, 2,00, 2,1
Spalte B 0,50, 1,00, 1,50, 2,00, 2,50, 3,00
Spalte C 1.95

Antworten:

1) Verwenden Sie eine for-Schleife, um Zeilen zu durchlaufen
2) Verwenden Exit For um die Schleife zu beenden, wenn die Bedingung erfüllt ist

 For intRow = 1 to 6
if Cells(intRow, 1).value < Cells(intRow, 2).value Then
Range("C1").value = Cells(intRow, 1).value
Exit For
End If
Next intRow