Question

我有一个程序，其中我需要计算D列中相同条目的数量。假设，用户输入＆＃34; 40＆＃34;在D栏中。我想知道有多少＆＃34; 40＆＃34;已插入同一列。

Answer 1

你想在一个消息箱吗？这些数据是否将被存储以供以后在代码中使用？结果是否发布在单元格旁边？

每个问题都有不同的方法来显示您的号码。我的答案将假设您希望使用循环函数将该值放在输入单元格旁边，以读取每个响应，直到列结束。


    Option Explicit
    Private Sub Test()
    Dim lastrow As Long
    Dim x As Long
    Dim ws As Worksheet

    Set ws = ActiveWorkbook.Worksheets("Sheet1")

    lastrow = ws.Cells(ws.Rows.Count, "D").End(xlUp).Row

    For x = 2 To lastrow
    ws.Cells(x, 5).Value = Application.WorksheetFunction.CountIf(Worksheets("Sheet1").Range("D" & 2, "D" & x), Worksheets("Sheet1").Cells(x, 4).Value)
    Next x

    End Sub

D列中输入的计数

1 个答案: