统计连续个数

qingc0221

1. Option Explicit
   
2. 
   
3. Sub 统计个数()
   
4.     Dim LastRow As Long, Row As Long, R1 As Integer, R2 As Integer
   
5.     Dim Counter As Integer
   
6.     LastRow = Cells(Rows.Count, 1).End(xlUp).Row
   
7.     Range("C:D").ClearContents
   
8.     Range("A:B").Interior.Color = xlNone
   
9.    
   
10.     For Row = 2 To LastRow
    
11.         If Counter = 0 Then                 '计数为0时
    
12.             If Cells(Row, 2) = "×" Then    '找到第一个"×"并把行号赋给R1得到开始行号
    
13.                 Counter = 1                 '用于统计"×"的个数
    
14.                 R1 = Row
    
15.             End If
    
16.         ElseIf Cells(Row, 2) = "√" Or Row = LastRow Then    '如果已到尾行或单元格为"√"
    
17.             If Counter >= 3 Then             '满足条件:"×"的个数大于3
    
18.                 R2 = Row
    
19.                 Do                          '往回找到最后一个"×"并把行号赋值给R2
    
20.                     R2 = R2 - 1
    
21.                 Loop Until Cells(R2, 2) = "×"
    
22.                 Cells(R2, 3) = Cells(R1, 1) & "-" & Cells(R2, 1)
    
23.                 Range(Cells(R1, 2), Cells(R2, 2)).Interior.Color = 5296274
    
24.             End If
    
25.             Counter = 0
    
26.         ElseIf Cells(Row, 2) = "×" Then     '计数不为0且单元格为"×"
    
27.             Counter = Counter + 1   '对"×"计数
    
28.         End If
    
29.         Cells(Row, 4) = Counter             '此行测试用,可删除
    
30.     Next Row
    
31. End Sub
    
32. 
    

复制代码

gfs57

konka-- 发表于 2017-5-8 20:44
=提取(单元格,COLUMN(A1))

你好！请教如何将上面代码用于本求助

konka--

gfs57 发表于 2017-5-10 15:50
你好！请教如何将上面代码用于本求助

把代码贴进模块，回到工作表，在B2输入 =提取($A1,COLUMN(A1))，往下拉就行了

gfs57

qingc0221 发表于 2017-5-9 14:40

谢谢你的再次回复，还注释了部分代码。