[發問] 計算工作表(間隔)

peter95

請版上大大幫忙,求如何計算間隔次數
附上圖檔和原始EXCEL檔案
謝謝大家幫忙

下載 (123.2 KB)

2023-9-5 23:24

Book1.rar (8.13 KB)

下載次數: 7

2023-9-5 23:27

0               
1        間隔1次出現大於0       
0               
0               
1        間隔2次出現大於0       
1        間隔0次出現大於0       
0               
0               
0               
1        間隔3次出現大於0       
1        間隔0次出現大於0       
0               
0               
0               
1        間隔3次出現大於0       
0               
1        間隔0次出現大於0       
1        間隔0次出現大於0       
0               
0               
1        間隔2次出現大於0       
0               
0               
0               
0               
1        間隔4次出現大於0

星空乂羽翼

1. Sub text()
   
2.     Range("A1").Select
   
3.     Dim x As Integer
   
4.     Dim y As Integer
   
5.    
   
6.     While ActiveCell.Value <> ""
   
7.    
   
8.     x = ActiveCell.Value
   
9.    
   
10.    
    
11.     If x = 0 Then
    
12.     y = y + 1
    
13.     ActiveCell.Offset(1, 0).Range("A1").Select
    
14.    
    
15.     Else
    
16.     ActiveCell.Offset(0, 1).Range("A1").Select
    
17.     ActiveCell.Value = y
    
18.     ActiveCell.Offset(1, -1).Range("A1").Select
    
19.     y = 0
    
20.       
    
21.     End If
    
22.     Wend
    
23. End Sub

複製代碼

星空乂羽翼

回復 2# 星空乂羽翼

後學剛學習VBA
上述代碼是由目前已學的觀念進行撰寫
若寫得不好請見諒，感謝！

peter95

感謝幫忙，我來試看看，謝謝你

hcm19522

https://hcm19522.blogspot.com/2023/09/0-11771.html

Andy2483

謝謝論壇,謝謝各位前輩
後學藉此帖練習陣列,學習方案如下,請各位前輩指教

執行前:

下載 (78.84 KB)

2023-11-9 11:32

執行結果:

下載 (79.98 KB)

2023-11-9 11:33

Option Explicit
Sub TEST()
Dim Brr, i&, N&
Brr = Range([A1], [A65536].End(3))
For i = 1 To UBound(Brr)
   If Val(Brr(i, 1)) > 0 Then Brr(i, 1) = N: N = 0 Else Brr(i, 1) = "": N = N + 1
Next
[E1].Resize(UBound(Brr)) = Brr
End Sub