excel統計兩個數中間的空白單元格有多少！！！VBA，編程！

代碼如下：

Sub?YgB()

Dim?i,?j,?k

For?j?=?2?To?11?'這行的11可能妳需要修改，是需要填數的列數

If?Cells(20,?j)?<>?""?Then

If?Cells(19,?j)?<>?""?Then

k?=?0

Else

i?=?Cells(20,?j).End(xlUp).Row

k?=?20?-?i?-?1

End?If

Cells(21,?j)?=?k

End?If

Next?j

End?Sub