根据条件统计个数

numberwyh

根据条件统计个数，小白，试着写了写但是还是有点转不出来
ub shishi()
Dim i As Integer
Dim k As Integer
  k = k + applincations.workbooktfunction.CountIf(Sheet2.Range("f:f"))

  c = Worksheets("Sheet1").Range("b65536").End(xlUp).Row

For i = 3 To c

    If Workbook.Sheet2.Range("f" & "i").Value = "666" Then

       Sheet2.Range("c3").Value = k + 1

       End If

Next
End Sub

魂断蓝桥

Sub a()
Dim r, i
r = [b999].End(3).Row
For i = 2 To r
    Cells(i, 1) = Application.CountIf(Sheet1.[a:a], Cells(i, 2))
Next
End Sub

一把小刀闯天下

Option Explicit

Sub test()
  Dim arr, i, j, m
  arr = Sheets("sheet1").[a1].CurrentRegion
  ReDim brr(1 To UBound(arr, 1), 1 To 2)
  For i = 2 To UBound(arr, 1)
    If Len(arr(i, 1)) Then
      m = m + 1: brr(m, 1) = 1: brr(m, 2) = arr(i, 1)
      For j = i + 1 To UBound(arr, 1)
        If arr(i, 1) = arr(j, 1) Then brr(m, 1) = brr(m, 1) + 1: arr(j, 1) = vbNullString
      Next
    End If
  Next
  With Sheets("sheet2").[a2]
    .Resize(Rows.Count - 1, 2).ClearContents
    If m > 0 Then .Resize(m, 2) = brr
  End With
End Sub

liujialin0o0

不知道是不是你表达的意思

1. Sub shishi()
   
2. 
   
3.   c = Sheets("Sheet1").Range("a65536").End(xlUp).Row
   
4.   d = Sheets("Sheet2").Range("b65536").End(xlUp).Row
   
5. 
   
6. For j = 2 To d
   
7.     For i = 2 To c
   
8.         If Sheet2.Cells(j, 2) = Sheet1.Cells(i, 1) Then
   
9.             k = k + 1
   
10.         End If
    
11.     Next
    
12.     Sheet2.Cells(j, 1) = k
    
13.     k = 0
    
14. Next
    
15. End Sub

复制代码

numberwyh

魂断蓝桥 发表于 2018-8-23 16:01
Sub a()
Dim r, i
r = .End(3).Row

谢谢，没有转出来。

numberwyh

一把小刀闯天下 发表于 2018-8-23 16:02
Option Explicit

Sub test()

谢谢，您这个扩展性高

numberwyh

liujialin0o0 发表于 2018-8-23 16:07
不知道是不是你表达的意思

谢谢，小白这个稍微能看懂些了。

仰望兴叹

楼上已经有好多解答了，我动作慢了...

numberwyh

仰望兴叹 发表于 2018-8-23 16:38
楼上已经有好多解答了，我动作慢了...

谢谢您还写上了注释，方便我们小白学习

仰望兴叹

numberwyh 发表于 2018-8-24 11:19
谢谢您还写上了注释，方便我们小白学习

客气啦！我也是小白，大家一起学习！