[已解决]次数统计

张雄友

次数统计，实现《效果》中的红字。

最佳答案

月排行榜 / 总排行榜

fjmxwrs

2015-10-18 23:20

1. Sub 在标题左侧增加一个次数统计()
   
2.     Dim i%, x%, j%
   
3.     With Sheet2
   
4.         .Select
   
5.         i = .Range("B65536").End(xlUp).Row
   
6.         For x = 1 To i
   
7.             If .Cells(x, 2) = "数据1" Then
   
8.                 j = j + 1
   
9.                 .Cells(x, 1) = "第" & j & "次"
   
10.             End If
    
11.         Next x
    
12.     End With
    
13. End Sub

复制代码

跳转到最佳答案楼层

fjmxwrs

1. Sub 在标题左侧增加一个次数统计()
   
2.     Dim i%, x%, j%
   
3.     With Sheet2
   
4.         .Select
   
5.         i = .Range("B65536").End(xlUp).Row
   
6.         For x = 1 To i
   
7.             If .Cells(x, 2) = "数据1" Then
   
8.                 j = j + 1
   
9.                 .Cells(x, 1) = "第" & j & "次"
   
10.             End If
    
11.         Next x
    
12.     End With
    
13. End Sub

复制代码