excel中如何编写VB程序主要是有关循环

Question

excel中如何编写命令：比较单元格A1与B1的数值，若A1小于B1则A1数据加1，一直循环到A1中数据大于或等于B1时停止。求大神门如何编写

Answer 1

在VBA中编写 很简单的，加入个事件Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Private Sub Worksheet_Change(ByVal Target As Range)
    If Val(Range("A1")) < Val(Range("B1")) Then
        Do While Range("A1") < Range("B1")
            Sleep 500 '延时半秒以看到数据在每次加1
            Range("A1") = Val(Range("A1")) + 1
        Loop
    End If
End Sub

Answer 2

楼主说的“ 比较单元格A1与B1的数 值，若A1小于B1则A1数据加1，一直循环到A1 中数据大于或等于B1时停止。 ”
在这种情况下，根本就用不着去循环，
直接就可按B1-A1得出A1应该加上多少。

Answer 3

直接用 MAX() 函数。