6,210
社区成员
发帖
与我相关
我的任务
分享
Sub demo()
Dim arr, i&, j%, dic As Object
Set dic = CreateObject("scripting.dictionary")
arr = Sheets("sheet1").[a1].CurrentRegion
For j = 1 To UBound(arr, 2)
For i = 1 To UBound(arr)
If arr(i, j) <> "" Then
If Not dic.exists(arr(i, j)) Then
dic(arr(i, j)) = ""
End If
End If
Next
Next
Sheets("sheet1").[a1].Resize(dic.Count, 1) = Application.Transpose(dic.keys)
End Sub
把所有列内容复制到A列