在Excel VBA中跳过包含searchstring的行

我有一个电子表格，其中已经有一些代码循环。 基本上在VBA中我想要做的是：

If x = Searchstring.row then GoTo continue （未定义）

我目前正在使用If x = activecell.row GoTo continue ，但是当我添加信息到一个新行时，旧的单元格被更新，其中包括searchstring行（因为它不再是ActiveCell.row ）

下面是我正在使用的代码（对不起有点乱）：

 Function RelLookup(ByVal Searchstring As String, Reldate As String, _ SearchRange As Range, TicketRange As Range, ReldateRange As Range, _ RelRange As Range, Optional UniqueOnly As Boolean = True) Dim X As Long, Task As String, ReldateVal As String, TicketVal As String, ReturnRel As String, _ Result As String For X = 1 To SearchRange.Count If X = ActiveCell.row Then GoTo Continue Task = SearchRange(X).Value ReldateVal = ReldateRange(X).Value TicketVal = TicketRange(X).Value ReturnRel = RelRange(X).Value If (Task = Searchstring) And (ReldateVal = Reldate) Then Result = Result & " Rel " & ReturnRel & " (" & TicketVal & ")" & " &" End If Continue: Next X If Len(Result) > 0 Then RelLookup = Left(Result, Len(Result) - 2) End Function 

Answer 1

我find了解决这个问题的方法（感谢@John Bustos的帮助）。 我添加了一个名为“RowNumber”的Integer。 然后，我已经改变了VBA阅读If x = RowNumber GoTo Continue尽pipe我现在有一个冗长的公式

 =RelLookup(E955,Row(E955),"Not Rel",E:E,B:B,I:I,A:A,"") 

整数行号由行（E955）的值确定。

如果没有引入另一个string的话，我会留下这个问题，以免有一个更简单或更可靠的方法（尽pipe我想不出一个更基本的方法）