在VBA中编码while循环以复制和粘贴结束循环的值

Question

我想要比较两列数据，然后一旦它小于右边的单元格，就从一个单元格中提取一个值。

如果A小于B，则将A列值粘贴到C1。我理解while循环可以帮助检查，但我不确定如何停止检查，然后从A列中的单元格中取值并将其粘贴到新单元格中。

例如： A栏1.00,1.50,1.75,1.95,2.00,2.1 B栏0.50,1.00,1.50,2.00,2.50,3.00 C栏1.95

Answer 1

1）使用for循环遍历行
2）满足条件时使用Exit For退出循环

 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