凡是“*[30m”开始的行，都请使用 Ctrl + y 删除。
如果对于发案文章格式有不清楚的地方，请参考置底文章：[发案] 发案范例
发案人： 陈先生
联络方式1（line ID）：allgowell
联络方式2：站内信
所在地区 ：台北
有效时间：2024/4/29
专案说明：在用excel VBA编辑餐厅菜单时，Do While循环卡在一个地方，简单来说，当以
unpatatable为标签的字段的资料都删光时，A2的值会变成0，然后程式会直接从Do
While A2 = 0这行跳出循环，但却没跳出，然后程式就错误了，程式码如下
Sub 菜单()
Range("A1").Select
Selection.Copy
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Do While A2 = 0
Range("B1:G1").Select
Selection.Find(What:="unpatatable", After:=ActiveCell,
LookIn:=xlFormulas2, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=
_
False, MatchByte:=False, SearchFormat:=False).Activate
ActiveCell.EntireColumn.Select
Selection.ClearContents
Range("A1").Select
Selection.Copy
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Loop
End Sub
预算：1000
接案者要求：无
附注：A1这个字段的设定是 =COUNTIF(B1:G1,"unpatatable")