excel宏循环问题，do while loop

Question

如图：有一个刷新排序的宏，D1会跟着每次刷新变化，E1是一个固定的值，怎么一直循环到D1=E1时跳出循环？请高手赐教。对VB比较菜，请高手举例，谢谢！
这个宏启动一次只能刷新一次。能否用do while loop做循环？
Sub Macro1()
ActiveCell.FormulaR1C1 = "=RAND()"
Range("C1").Select
Selection.AutoFill Destination:=Range("C1:C26")
Range("C1:C26").Select
Range("C1").Select
Range("A1:C26").Sort Key1:=Range("C1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
SortMethod:=xlPinYin, DataOption1:=xlSortNormal
Columns("C:C").Select
Selection.ClearContents
End Sub

Answer 1

发代码来看看。本回答被提问者采纳

Answer 2

貌似你的要求用公式就可以了，不用VBA吧
就是用VBA你也得把你的代码发上来，让大家看看追问

已经发了代码了

本回答被网友采纳