软件: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