时间戳

首页 > 解决方案 > 计算某些单词在列中出现的次数

excel - 计算某些单词在列中出现的次数

问题描述

我正在尝试编写一个vba代码来计算Junior，Seniors，Masters，Grand Masters，Great Grand Master和Total of all出现在列中的次数。我需要将结果粘贴到不同工作表上的相应单元格中。如果您能指出我如何做到这一点的正确方向，将不胜感激

标签： excelvbaoffice365

解决方案

Sub NameCount()
Dim MyRange As Range

Set MyRange = Sheet2.Range("A1", Sheet2.Range("A1").End(xlDown))

Sheet2.Range("d2").Value = "Junior"
Sheet2.Range("d3").Value = "Seniors"
Sheet2.Range("d4").Value = "Masters"
Sheet2.Range("d5").Value = "Grand Masters"
Sheet2.Range("d6").Value = "Great Grand Master"

Sheet2.Range("e2").Value = WorksheetFunction.CountIf(MyRange, MyRange.Find("Junior"))
Sheet2.Range("e3").Value = WorksheetFunction.CountIf(MyRange, MyRange.Find("Seniors"))
Sheet2.Range("e4").Value = WorksheetFunction.CountIf(MyRange, MyRange.Find("Masters"))
Sheet2.Range("e5").Value = WorksheetFunction.CountIf(MyRange, MyRange.Find("Grand Masters"))
Sheet2.Range("e6").Value = WorksheetFunction.CountIf(MyRange, MyRange.Find("Great Grand Master"))


End Sub

推荐阅读