软件:excel VBA 版本:2016 问题:总共有六栏项目(G~L),每栏各有3~8项不等资料, 想要做C6取2、C6取3、C6取4、C6取5、C6取6 写了C6取2,卡在不知道如何排除重复的资料....有请版上大神指点迷津...搞一天惹...Orz 档案: Sub oneAoneC() Dim Ante1 As Range Dim 组合结果 As Range Dim xStr As String Dim xFN1, xFN2, xFN3 As Integer Dim xSV1, xSV2, xSV3 As String Worksheets("工作表").Activate Set Ante1 = Range("A2:A34") xStr = "-" 'Separator Set 组合结果 = Range("E2") For xFN1 = 1 To Ante1.Count xSV1 = Ante1.Item(xFN1).Text For xFN2 = 1 To Ante1.Count xSV2 = Ante1.Item(xFN2).Text 组合结果.Value = xSV1 & xStr & xSV2 Set 组合结果 = 组合结果.Offset(1, 0) Next Next End Sub