Excel跨工作表工作

时间:2018-06-06 12:02:23

标签: excel excel-vba vba

我收到了7张报告,我必须自己制作一份。

所有我需要做的就是找到每月平均的物品数量。这意味着我首先对5月份和6月份销售的产品进行了分类,但是由于他们重复自己并且有超过数千件,而在其他表格中,我怎么能找到它们跨纸张,计算它们并插入其中有多少纸张。

我在第B列中添加了“产品名称”,在第2页中有超过1600行。 我需要计算相同产品名称重复的次数,并将其插入表1中。

由于

1 个答案:

答案 0 :(得分:1)

您真的应该发布您尝试使用的代码,或者至少发布您正在使用的工作表的一些图像。仅通过阅读您的描述很难确切知道您要做什么。

话虽这么说,如果您只是想计算一个精确短语出现在列中的次数,然后将该计数输入到一个设定位置,那么这是您可以这样做的一种方式。

Sub Test()

Dim counttotal As Long

counttotal = WorksheetFunction.CountIf(Columns("D"), "name123")

    If counttotal <> 0 Then _
    Range("E2").Value = counttotal

End Sub

这假定您要在D列中搜索确切的短语“name123”,然后将总计数结果放在单元格E2中。您可以根据需要更改列,单元格或短语。