Question

excel宏循环

如图：有一个刷新排序的宏，D1会跟着每次刷新变化，E1是一个固定的值，怎么一直循环到D1=E1时跳出循环，或者D1=“TEXT14"时跳出循环？请高手赐教。对VB比较菜，请高手举例，谢谢！

这个宏启动一次只能刷新一次。
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

我觉得你还是把你想实现的效果说下比较好。

不然你可以这样：   执行AAA 。

Sub AAA()
    Do
        Macro1
        DoEvents
        If [D1] = "TEXT14" Then Exit Do
    Loop
End Sub
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

追问

你好，为什么循环之后D1变成下面这样：

D1是取B列中的随机值，B列是一些文本。

追答

那就不知道你了，我代码并没有改变D1的值。
你不说说你想实现的效果，只能这样做循环了。即使你到excelhome 去问，还是一样会叫你上传附件的。

追问

你好，附件好像添加不了，A1到A26为1-26的数字，B1-B26为字符1-字符26，D1内函数为：=B8   宏全部照你写的。想达到的效果：循环，当D1的值等于B列中某个单元格的值，如TEXT018时，跳出循环，停止宏。

 

 

追答

Crazy0qwer@qq.com