Warning: file_get_contents(/data/phpspider/zhask/data//catemap/9/loops/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 在VBA中编写while循环以复制和粘贴结束循环的值_Excel_Loops_Vba - Fatal编程技术网

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

Excel 在VBA中编写while循环以复制和粘贴结束循环的值,excel,loops,vba,Excel,Loops,Vba,我有两列数据,我想比较,然后从单元格中提取一个小于右边单元格的值 如果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)使用for循环来循环行 2) 当满足条件时,使用Exit For退出循环 For intRow = 1 to 6 if Ce

我有两列数据,我想比较,然后从单元格中提取一个小于右边单元格的值

如果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)使用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
对于intRow=1到6
如果单元格(intRow,1)。值<单元格(intRow,2)。则值
范围(“C1”)。值=单元格(简介,1)。值
退出
如果结束
下一篇介绍

“如果A”是您能告诉我们的全部内容?您可以添加更多详细信息,包括代码。请在此查看如何提出好问题: