Question

关于VBA多条件求和的问题。解决后加分。。。

品名 产地 箱数 吨位 品名 产地 箱数 吨位
苹果 安徽 1 2 苹果 安徽 1 2
香焦 广东 3 2 香焦 广东 3 2
橘子 杭州 4 3 橘子 杭州 4 3
桃子 江西 2 4 桃子 江西 2 4
苹果 安徽 2 2 苹果 安徽 2 2
苹果 安徽 6 6 苹果 安徽 6 6
苹果 安庆 4 4 苹果 安庆 4 4
苹果 安徽 5 5 苹果 安徽 5 5

我是想把同一品名的物品统计一下，统计的时候我也想把同一品名的物品不同产地的物品分开。

个人的想法如下，我想只写品名然后让代码自己动去识别产地。（因为产地有时候很多）把SHEET1的清单显示在SHEET2中。
问题中的两个品名是在同一个表中的。我想把同一品名同一产地的箱数和吨位合并一下，（如果是同一品名和产地，那么就直接显示合并后的结果，最好把结果显示在同一工作薄中的不同的工作表。）

Answer 1

思路如下，请参考
do while sheet1.row <>""
set finditem = sheet2.range(A:A).find(品名&产地）
找到 箱数=箱数+1：吨位=吨位+1
到不到 新建 （品名&产地 品名 产地 箱数 吨位 ）
品名&产地 品名 产地 箱数 吨位
苹果&安徽 苹果 安徽 1 2
row=row +1
loop

追问

麻烦你能不能写具体点。
品名 产地 箱数 吨位 品名 产地 箱数 吨位
苹果 安徽 1 2 苹果 安徽 1 2
香焦 广东 3 2 香焦 广东 3 2
橘子 杭州 4 3 橘子 杭州 4 3
桃子 江西 2 4 桃子 江西 2 4
苹果 安徽 2 2 苹果 安徽 2 2
苹果 安徽 6 6 苹果 安徽 6 6
苹果 安庆 4 4 苹果 安庆 4 4
苹果 安徽 5 5 苹果 安徽 5 5
同一表中，想把同品名同产地的合并后显示别的工作表中。不同的也显示。

追答

上面的思路，不修改当前表，直接将需要的结果显示在另一个sheet中
具体点-----指完整vba代码吗？最好直接写在你的表格中。如果需要传到下面地址：

Answer 2

如果你要统计的话就使用数据透视表，如果只是需要查询某个品名和某个产地的数量可以用数据公式实现。具体可以通过QQ与我交流，百度上有我的QQ号。

Answer 3

用宏录制的方法把基本语句找出，再用循环嵌套求，指明表名