- ©«¤l
- 63
- ¥DÃD
- 8
- ºëµØ
- 0
- ¿n¤À
- 122
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows 2007
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Taiwan
- µù¥U®É¶¡
- 2019-4-16
- ³Ì«áµn¿ý
- 2023-3-24
|
Sub Countif()
a = Sheets("ú®w¶q").Range("G65536").End(3).Row
b = ActiveSheet.Range("A65536").End(3).Row
For i = 2 To b Step 1
ActiveSheet.Range("G" & i).Value = WorksheetFunction.Countif(Sheets("ú®w¶q").Range("G2:G" & a), ActiveSheet.Range("A" & i).Value)
Next i
End Sub |
|