直到循環檢查單元在VBA中不是空的？

Question

目前我有代碼檢查找到的第一個「）」右側的單元格是否爲空，如果不是，則它將「A」列向下移動。我似乎無法弄清楚如何讓這個繼續運行，直到paren右邊的單元格爲空。任何幫助，將不勝感激。謝謝。

Sub SeekParen() 
    Dim C As Range, wheree As Range, whatt As String 
    whatt = ")" 
    Set C = Range("A1:A10") 
    Set wheree = C.Find(what:=whatt, after:=C(1)).Offset(0, 1) 
    If Not IsEmpty(wheree.Address(0, 0)) Then 
     Range("A2").Select 
     Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove 
    End If 
End Sub 

Answer 1

這工作？

Sub SeekParen() 
Dim C As Range, wheree As Range 
Dim whatt As String 
Dim TotalCycle As Long, CounterCycle As Long 
whatt = ")" 
Set C = Range("A1:A10") 

Set wheree = C.Find(what:=whatt, after:=C(1)).Offset(0, 1) 
TotalCycle = Application.WorksheetFunction.CountIf(C, whatt) 
For CounterCycle = 1 To TotalCycle 
If wheree.Value <> "" Then 
Range("A2").Select 
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove 
Set wheree = C.Find(what:=whatt, after:=C(wheree.Row)).Offset(0, 1) 
Else 
Exit For 
End If 
Next CounterCycle 
End Sub