vba - Excel计数目标然后在单元格中输出值

Question

我有一个包含三张纸的工作簿(Dash、HT、RV。)

我正在尝试编写一个宏/函数来计算'Dash'中的值存在于工作表'RV'中的特定列中的次数，然后在'Dash'中的特定单元格中输出该值

我什至可以说“Dash”中的值是静态的并重复它(“Dash”中的变量永远不会改变，因为它是用户名列表)

在我的脑海中，它类似于:在 Dash.B2 中的 sheet.RV 打印的 J 列中计算任何东西.variable.Dash ...

我能够找到一个有效的 MsgBox 选项，但我必须手动输入每个用户名(这是一个 16 个字符的名称(字符串))，然后一个 MsgBox 告诉我出现的情况。我希望在宏/函数中使用固定/静态用户名自动执行此选项，因为“RV”中的行数可以在 700 个条目到 23k 个条目之间变化

MsgBox 选项是:

Dim Count as Integer
Dim Target As String
Dim Cell as Object
Dim N As Integer

Sub Target_Count()
    Count = 0
    Target = InputBox("character(s) to find?")
    If Target = "" Then GoTo Done
        For Each Cell in Selection
            N = InStr(1, cell.Value, target)
            While N <> 0
                Count = count + 1
                N = InStr(n + 1, cell.Value, target)
            Wend
        Next Cell
    MsgBox count & " Occurrences of " & target
Done:
End Sub

我希望输入框目标是 'Dash.A1:8' 并且出现在 'Dash.B1:8' 中打印

Answer 1

你能用countif()吗？公式而不是编程宏？假设您计算“破折号”所在的列是 RV 表格中的 B 列，然后在表格破折号的单元格中，公式为:
=COUNTIF(RV!B:B,"dash")


或者，如果您想改变计数的内容，只需将公式中的硬编码“破折号”替换为输入单元格地址。