CountLarge For i = 1 To n - 1 If Cells(i, 1).Value < Cells(i + 1, 1).Value Then k = k + 1 If k > num Then MsgBox "呈遞增現象" k = 0 End If ElseIf Cells(i, ...
確定! 回上一頁