Question

excel中如何实现条件循环

就是我想让单元格A1的数据为大于等于4的2的倍数，逐渐累加，B1为关于A1的函数，当B1所得函数值大于等于C1的值时，结束循环，A1单元格显示循环结束时的值，（如A1=4,6,8,10......B1=2*A1+3，C1=10，当A1=4时，B1=11>C1，则A1=4），前提是我不会VBA，教教我吧，最好详细一点，谢谢

Answer 1

看得一头雾水！
象是在B1>=C1时结束计算，那就在B1里用=if（B1>=C1，"结束循环"，B1=2*A1+3）函数吧

Answer 2

Sub 宏1()
'
' 宏1 宏
Dim ZSTOP As Boolean '

ZSTOP = False
[A1] = 2
Do
[A1] = [A1] + 2
[B1] = 2 * [A1] + 3 '如果你已经在B1中写好了公式，此行删除。
ZSTOP = [B1] > [C1]
Loop Until ZSTOP
End Sub

追问

能让A.B,C三列都执行这样的操作吗，并且是自动的。最好不要每个单元格都要运行一次宏，谢谢了

追答

让A.B,C三列都执行这样的操作
这句话很难理解，VBA的执行是有触发条件的，比如点击一个按钮、选中一个单元格或者修改单元格内容，请明确一下或者再详细解释一下。

追问

就是编写一个函数，让A列都执行与上述A1单元格相同的操作，谢谢了，我急用

追答

Sub 宏1()
'
' 宏1 宏
Dim ZSTOP As Boolean, zrow As Integer, I As Integer '

zrow = Range("C65535").End(xlUp).Row
ZSTOP = False
For I = 1 To zrow
Cells(I, 1) = 2
Do
Cells(I, 1) = Cells(I, 1) + 2
Cells(I, 2) = 2 * Cells(I, 1) + 3 '如果你已经在B1中写好了公式，此行删除。
ZSTOP = Cells(I, 2) > Cells(I, 3)
Loop Until ZSTOP
Next I
End Sub
'从A1向下，自动计算，直到C列的最后一个。

Answer 3

用VBA就很简单

追问

汗啊，都说我不会VBA了，我也知道简单，关键是我不会编程啊