Question

[VBA] 请教将数据分类汇总，这段代码怎麼写？

原数据：
国别 产品
中国 AAA
中国 BBB
美国 CCC
美国 BBB
意大利 AAA
意大利 DDD
德国 EEE
德国 FFF
德国 GGG
德国 HHH
德国 III

目标格式：
德国 意大利 美国 中国 产品
Y Y AAA
Y BBB
Y CCC
Y Y DDD
Y EEE
Y FFF
Y GGG
Y HHH
Y III

Answer 1

用数据透视表．分行有产品．分列用国别．

Answer 2

函数试试
原数据：
国别 产品 德国 意大利 美国 中国
中国 AAA if(国别一致，Y，"" )
中国 BBB
美国 CCC
美国 BBB
意大利 AAA
意大利 DDD
德国 EEE
德国 FFF
德国 GGG
德国 HHH
德国 III

追问

目前就是用函數做的，但得人工操作，容易人為出錯，且工作中經常要用，想要寫一套自動化的VBA程式，麻煩再幫忙想想，謝謝

追答

一般来说源数据放在一张表（假设sheet1），希望的数据放在另一张表（sheet2)
从格式来说产品放在左侧比较好。
说个思路吧！
首先以sheet1产品所在列定义一个外循环，
do while 产品""
在sheet2中查找产品，
if 有 查找国家
有 cells（产品，row，国家.column) = Y
没有 查找空列 写入国家 写入 Y
else 没有 查找空行写入产品
查找国家
有 写入 Y
没有 查找空列 写入国家 写入 Y
end if
A.row = A.row+1
loop

Answer 3

先使用函数的解法吧。
=IF(SUMPRODUCT(($A$1:$A$12=G$1)*($B$1:$B$12=$F2)*1)=0,"",SUMPRODUCT(($A$1:$A$12=G$1)*($B$1:$B$12=$F2)*1))，向右向下拖动即可。