计算唯一行的出现次数并在表中生成摘要
索伦
我试图在 VBA 和 Excel 中生成一个宏，它能够计算行的唯一出现次数，打开一个新的 Excel 工作表并粘贴包含出现次数的汇总订单列表。
我对 VBA 相当陌生，我仍在使用 Excel VBA for Dummies 阅读它。因此，非常感谢有关如何开始的任何帮助。我已经阅读了其他帖子并尝试了 SUM 和 COUNT.IF 并取得了一定程度的成功。
基本上，我正在处理过程设备和仪器（例如阀门、压力表等）的订单列表。填写该列表后，在一大堆信息中会出现具有唯一零件号的同一项目的多个重复项。因此，很难计算要订购的独特商品的数量，并且很容易发生错误。目标可以概括如下：
- 根据唯一标签编号（例如示例图像）计算行（唯一部分）出现的次数
- 生成一个汇总表，可以单独打印（最好在新工作表中），其中包含一行，每个唯一项目（可能是从顶部开始的唯一行的第一次出现）以及整个范围内相应的出现次数。
例如，我为不同的超市连锁店准备了一份水果订单清单，如下面的图片链接所示。
提前致谢！
索伦
我自己解决了这个问题。如果有人碰巧读到这个并想要答案，代码的核心看起来像这样（直接从我的基于另一个案例的代码中复制，因此它不会自行运行）：
Dim i As Long
Dim nr_rows As Long
Sheets("Ark1").Cells(1, 1).Select
Sheets("Ark1").UsedRange.Clear
'Counts number of occurances based on two criteria: the connection type and model number
With ActiveSheet
nr_rows = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To nr_rows 'Cells(i, 7) indicates destination column
Cells(i, 7).Formula = "=SUM(COUNTIFS(B1:B200,B1:B200,F1:F200,F1:F200))"
Next i
End With
'Removes duplicates based on all columns
Application.Calculation = xlCalculationManual
ActiveCell.Range("A1:G200").Select
ActiveSheet.Range("$A$1:$G$200").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7), Header:=xlNo
'Sorts the range alphabetically based on Column E, the manufacturer
Range("A1:G50").Sort Key1:=Range("E:E")
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
编辑于
相关文章
Related 相关文章
- 1
计算oracle表中每一行的出现次数
- 2
计算一行中出现的次数
- 3
计算多列中每个唯一行的字符串出现次数
- 4
文件中唯一行的出现次数
- 5
计算矩阵中一行出现的次数（numpy）
- 6
如何从第一行减去第二行并在mysql中生成输出列
- 7
如何从第一行减去第二行并在mysql中生成输出列
- 8
创建一对唯一值，并在其他列中以相同的值计算它们的出现次数
- 9
在一行中生成ajax对象
- 10
计算数据框中每一行和特定列在列表中的出现次数
- 11
Perl-计算文件每一行中特定单词的出现次数
- 12
计算值在 R 中出现的次数（并将其附加在每一行中）
- 13
计算每个标记在 DataFrame 的每一行中出现的次数
- 14
计算每个值出现在一行数据帧 r 中的次数
- 15
计算唯一组组合中的出现次数
- 16
计算哈希中值的唯一出现次数
- 17
计算每个唯一值在R中出现的次数
- 18
计算矩阵中的唯一行
- 19
在每一行中查找字符串变量并在R中生成新变量
- 20
在八度/ matlab中生成具有唯一行的随机2D矩阵
- 21
联接表的唯一行的总和
- 22
如何为mysql表的新列中的每一行生成唯一值？
- 23
我想计算一行中字符串出现的次数（特定于3列：B，J，K）。
- 24
查找数据帧中每一行的出现次数
- 25
计算一行在 Google 表格中重复的次数
- 26
使用汇编语言中的宏在一行中生成行时出现错误A2149
- 27
计算一个值在表SQL中出现的次数
- 28
按唯一行计算重复行
- 29
计算连续的行出现次数
我来说两句