帖子: 55
主題: 15
精華: 0
積分: 69
點名: 0
作業系統: Win7
軟體版本: Office 2003
閱讀權限: 20
註冊時間: 2020-12-6
最後登錄: 2022-1-5

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2020-12-9 17:19 | 只看該作者

[發問] 登錄">0"值的連續個數(含1個)

本帖最後由 johnny1680 於 2020-12-9 17:21 編輯

測試檔 :

登錄大於0值的連續個數(含1個).rar (2.92 KB)
A欄為>=0的各被比對值，各值之間不會有空白格。
B欄為計算A欄>0值的連續個數(含1個)之登錄欄。

需求︰
請將A欄>0值計算後的1個和連續n個的個數，
登錄於A欄各段>0連續值的最末值之同列B欄儲存格。

請問︰B2的函數公式要怎麼寫？
謝謝！

樓主熱帖

hcm19522

大學生 Rank: 4

帖子: 1387
主題: 4
精華: 0
積分: 1397
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2024-11-22

熱烈參與勳章

2^#

發表於 2020-12-10 13:02 | 只看該作者

https://blog.xuite.net/hcm19522/twblog/589503335

google"EXCEL迷" blog 或google網址:https://hcm19522.blogspot.com/

TOP

johnny1680

中學生 Rank: 2

帖子: 55
主題: 15
精華: 0
積分: 69
點名: 0
作業系統: Win7
軟體版本: Office 2003
閱讀權限: 20
註冊時間: 2020-12-6
最後登錄: 2022-1-5

3^#

發表於 2021-11-7 19:43 | 只看該作者

回復 2# hcm19522
謝謝您的指導!

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-10-30

4^#

發表於 2021-11-9 13:01 | 只看該作者

回復 1# johnny1680

請測試看看，謝謝
Sub test()
Dim Arr, Brr(), T0%, T%, T1%, s
Arr = Range([a1], [a65536].End(3))
ReDim Brr(1 To UBound(Arr), 1 To 1)
For i = 2 To UBound(Arr)
If i > 2 Then T0 = Arr(i - 1, 1)
T = Arr(i, 1)
If i < UBound(Arr) Then
      T1 = Arr(i + 1, 1)
Else
      If T <> 0 Then Brr(i, 1) = i - s
End If
If T = 0 Then
      s = i
Else
      If T1 = 0 And s <> "" Then: Brr(i, 1) = i - s
End If
Next
[b1].Resize(UBound(Arr), 1) = Brr
[b1] = "登錄"
End Sub

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-10-30

5^#

發表於 2021-11-9 15:04 | 只看該作者

回復 2# hcm19522

A2數值不為0時，會有小問題，請確認，謝謝。

11.PNG (14.51 KB)

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-22

6^#

發表於 2021-11-9 15:28 | 只看該作者

一般:
=IF(OR(A2=0,A3>0),"",COUNTIF(A$1:A2,">0")-SUM(B$1:B1))

陣列:
=IF(OR(A2=0,A3>0),"",ROW()-MATCH(2,0/ISERR(0/A$1:A1)))

TOP

samwang

大學生 Rank: 4

帖子: 976
主題: 7
精華: 0
積分: 1018
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 50
性別: 男
註冊時間: 2013-4-19
最後登錄: 2024-10-30

7^#

發表於 2021-11-10 08:18 | 只看該作者

不好意思，更新4#程式如下紅字，看了准大解答終於了解題意，謝謝
Sub test()
Dim Arr, Brr(), T0%, T%, T1%, s
Arr = Range([a1], [a65536].End(3))
ReDim Brr(1 To UBound(Arr), 1 To 1)
s = 1
For i = 2 To UBound(Arr)
If i > 2 Then T0 = Arr(i - 1, 1)
T = Arr(i, 1)
If i < UBound(Arr) Then
      T1 = Arr(i + 1, 1)
Else
      If T <> 0 Then Brr(i, 1) = i - s
End If
If T = 0 Then
      s = i
Else
      If T1 = 0 Then: Brr(i, 1) = i - s
End If
Next
[b1].Resize(UBound(Arr), 1) = Brr
[b1] = "登錄"
End Sub

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-22

8^#

發表於 2021-11-10 18:06 | 只看該作者

Sub test()
Dim Arr, V&, N&
Arr = Range([a1], [a65536].End(3)(2))
For i = 2 To UBound(Arr) - 1
V = Val(Arr(i, 1)): Arr(i, 1) = ""
If V = 0 Then GoTo 101 Else N = N + 1
If Val(Arr(i + 1, 1)) = 0 Then Arr(i, 1) = N: N = 0
101: Next
Arr(1, 1) = "登錄"
[b1].Resize(UBound(Arr) - 1, 1) = Arr
End Sub

TOP

johnny1680

中學生 Rank: 2

帖子: 55
主題: 15
精華: 0
積分: 69
點名: 0
作業系統: Win7
軟體版本: Office 2003
閱讀權限: 20
註冊時間: 2020-12-6
最後登錄: 2022-1-5

9^#

發表於 2021-11-10 18:14 | 只看該作者

回復 6# 准提部林
回復 7# samwang
回復 8# 准提部林
感謝二位大大的不吝指導~感恩喔

TOP