直到循环检查单元格在VBA中不是空的？

目前，我有代码，检查find的第一个“）”右边的单元格是否为空，如果不是，它将向下移动“A”列。 我似乎无法弄清楚如何使这个继续运行，直到右侧的单元格为空。 任何帮助，将不胜感激。 谢谢。

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