EXCEL高手用VBA或函数公式保留属性

Sub 提取不重复()
 Dim arr, x
 For i = 11 To 20   '11 至20行
  Set d = CreateObject("scripting.dictionary")
 arr = Range("E" & i & ":G" & i)  '范围 E:G列
 For x = 1 To 3     '3列
      d(arr(1, x)) = ""
 Next x
 Range("I" & i).Resize(1, d.Count) = d.Keys
 Set d = Nothing
 Next
End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/rfe2x7yyvjffx2fxje.html