韓國小姐 劇情介紹 韓國小姐線上看 第1集 韓國小姐線上看 第2集 韓國小姐線上看 第3集 韓國小姐線上看 第4集 韓國小姐線上看 第5集 韓國小姐線上看 第6集

A1輸入"期數",B1輸入"次數"
實際的期數,次數由第2列以下開始放
D1輸入"上一期出現0下一期出現1的次數"
用以下的程式,可算出上一期出現0下一期出現1的次數,顯示在D2

Sub my_count()

Dim i, c As Integer

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:

• Massacres That Matter - Part 1 - 'Responsibility To Protect' In Egypt, Libya And Syria
• Massacres That Matter - Part 2 - The Media Response On Egypt, Libya And Syria
• National demonstration: No attack on Syria - Saturday 31 August, 12 noon, Temple Place, London, UK