寫了一個自定義，希望對你有幫助。不好意思啊，這是第一次寫，但能實現你的功能，雖然還不夠智慧。開啟VBA，新建模組，把這段程式碼貼上去。然後在某一空白單元格中輸入 =Statics()，在此格中會顯示A列中起始序號Function Statics()Dim i As IntegerDim iCount As IntegerMax = 0imax = 1For i = 1 To 250If Range("a" & i) <> "" Then If Range("A" & i) = 0 Then iCount = iCount + 1 If iCount > Max Then Max = iCount imax = i - iCount + 1 End If Else iCount = 0 End If End IfNextStatics = imaxEnd Function
寫了一個自定義，希望對你有幫助。不好意思啊，這是第一次寫，但能實現你的功能，雖然還不夠智慧。開啟VBA，新建模組，把這段程式碼貼上去。然後在某一空白單元格中輸入 =Statics()，在此格中會顯示A列中起始序號Function Statics()Dim i As IntegerDim iCount As IntegerMax = 0imax = 1For i = 1 To 250If Range("a" & i) <> "" Then If Range("A" & i) = 0 Then iCount = iCount + 1 If iCount > Max Then Max = iCount imax = i - iCount + 1 End If Else iCount = 0 End If End IfNextStatics = imaxEnd Function