用字典key放A+B自动去重 item放C 跑循环也可以搭配字典的exists判断是否之前已放入字典Sub tt()Set d = CreateObject("scripting.dictionary")For i = 1 To Cells(Rows.Count, 1).End(3).RowIf Cells(i, 2) = "东" ThenIf d.exists(Cells(i, 2).Value) = False Thend(Cells(i, 1).Value) = Cells(i, 3).ValueEnd IfEnd IfNextFor Each Z In d.items(): x = x + Z: NextRange("e1") = xEnd Sub