i = 3 c = 0 Do While Worksheets("Sheet1").Cells(i, 2) <> "" If Worksheets("Sheet1").Cells(i - 1, 2) = 0 And Worksheets("Sheet1").Cells(i, 2) = 1 Then c = c + 1 End If i = i + 1 Loop
Worksheets("Sheet1").Cells(2, 4) = c
End Sub
This entry passed through the Full-Text RSS service — if this is your content and you're reading it on someone else's site, please read the FAQ at fivefilters.org/content-only/faq.php#publishers. Five Filters recommends:
留言列表