凡是「*[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")