Sub 提取不重复2()
Dim arr, x
For i = 11 To 20 '11 至20行
arr = Range("E" & i & ":G" & i) '范围 E:G列
Range("I" & i) = arr(1, 1)
k = 1
For x = 2 To 3 '3列
For y = 1 To x - 1
If arr(1, x) = arr(1, y) Then GoTo 1
Next
Range("I" & i).Offset(0, k) = arr(1, x)
k = k + 1
1:
Next x
Next
End Sub