如果循环单元是 = 到前一个，有没有办法 [VBA] 来检查每个循环？答案

【问题标题】：Is there a way [VBA] to check in a for each loop if the looping cell is = to the previous?如果循环单元是 = 到前一个，有没有办法 [VBA] 来检查每个循环？
【发布时间】：2019-10-02 10:23:49
【问题描述】：

我想要的是查看在循环之后递增的 cell.value 是否等于自身，但属于先前的 cicle。

If Not Intersect(Target, rng) Is Nothing Then
  risorsa = Cells(Target.ROW, 3).Value
  For Each cell In rngCalendario 
    If UCase(cell.Value) Like "*" & risorsa & "*" Then '
      For i = cell.ROW To RigaNomeProgetto Step -1 
        If Cells(i, 2).Value = 0 And cell.ROW < ultimaRiga Then 
          NomeProgetto = Cells(i, 1).Value 
          Exit For
        End If
      Next i
      Output = LTrim(Output) & NomeProgetto & Chr(10) & Chr(10) & Chr(10)  
    End If
  Next cell
  Cells(2, 4) = Output
End if

【问题讨论】：

有一种方法，但您需要提供更多信息，说明您想在哪里检查它。取决于您希望在哪个 For 循环内进行检查。
是的有办法。这将取决于您的Target 范围。是 n x 1、1 x n 还是 n x n？这将决定您如何检查“上一个”单元格，即。 .Offset(-1,0) 表示行，.Offset(0,-1) 表示列...
@M.Schalk 我想在 rngCalendario 中的每个单元格中执行，并且它下面的 if 语句将类似于： If UCase(cell.Value) Like "" & risorsa & "" 和 prevCell.value cell.value 然后做 prevCell = cell

标签： excel vba range cell

【解决方案1】：

给你：

    If Not Intersect(Target, rng) Is Nothing Then

    Dim prevCell As Variant 'Choose applicable type, probably String
    risorsa = Cells(Target.Row, 3).Value

    For Each cell In rngCalendario
      If UCase(cell.Value) Like "*" & risorsa & "*" And prevCell = cell.Value Then 'current cell value is compared to previous cell
        For i = cell.Row To RigaNomeProgetto Step -1
          If Cells(i, 2).Value = 0 And cell.Row < ultimaRiga Then
            NomeProgetto = Cells(i, 1).Value
            Exit For
          End If
        Next i
        Output = LTrim(Output) & NomeProgetto & Chr(10) & Chr(10) & Chr(10)
      End If
      prevCell = cell.Value 'prevCell is assigned the value of the current cell
    Next cell
    Cells(2, 4) = Output
End If

【讨论】：