Question

尝试执行某项任务的次数与某个单词在一个范围内出现的次数相同。如何使计数器循环=计数答案？

我会做直到空的activecell方法，但是引用的行数可以是任意数量。（我正在下移列表）

 Dim TotalEmployees As Integer

 ' TotalEmployees = WorksheetFunction.CountIf(range("B:B"), "" * employee * "")

 ' WorksheetFunction.CountIf(Columns("B:B"), "" * employee * "") = range("P9")


For counter = 1 To TotalEmployees

    Cells.Find(What:="Employee:", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Selection.Copy
    ActiveCell.Offset(0, 14).range("A1").Select
    ActiveSheet.paste

Next counter

注释行是我当前的尝试。都不起作用，通常会出现不匹配错误。我的预期答案是“雇员”在B列中出现的次数。我不介意在VBA中使用countif =在excel中使用countif单元格，但也无法做到这一点。（就是P9）

VBA：如何进行计数器循环次数=公式答案？

0 个答案: