Excel VBA查找匹配並返回交替值

Question

我在嘗試將某些東西包含到我正在構建的宏中時遇到問題。我需要它通過列C 搜索表示「start trans」的單元，並在（d）的一列中搜索 - 第一個值將等於零，下一個實例應該爲100，下一個實例爲0，下一個實例爲100，直到數據的結尾。

實例並不總是每隔4行，我還有其他零，我希望它忽略。

謝謝你的幫助！

Answer 1

這個怎麼樣：

Sub GoGoGo() 
Dim l As Long: Dim i As Long 
Dim b As Boolean 
With ActiveSheet 
    l = .Cells(.Rows.Count, "C").End(xlUp).Row 
    For i = 5 To l 
     If .Cells(i, "C").Value2 = "start trans" Then .Cells(i, "D").Value2 = b * -100: b = Not b 
    Next i 
End With 
End Sub 

Answer 2

試試這個。

Sub test() 
    Dim rngDB As Range, rng As Range 
    Dim n As Long, Result As Integer 
    Set rngDB = Range("c5", Range("c" & Rows.Count).End(xlUp)) 
    For Each rng In rngDB 
     If rng = "start trans" Then 
      n = n + 1 
      If n Mod 2 Then 
       Result = 0 
      Else 
       Result = 100 
      End If 
      rng.Offset(0, 1) = Result 
     End If 
    Next rng 
End Sub