Option Explicit
Sub ææ表å»é()
Dim st As Worksheet, arr, i&, rlt$(1 To 1000000, 1 To 1), n&, j&, isnew
'ç»è®¡ç»æå°æ°ç»rlt
For Each st In Sheets
If st.UsedRange.Rows.Count > 1 Then
arr = st.UsedRange
For i = 1 To UBound(arr)
arr(i, 1) = Trim(arr(i, 1))
If arr(i, 1) <> "" Then
isnew = 1
For j = 1 To n
If rlt(j, 1) = arr(i, 1) Then
isnew = 0
Exit For
End If
Next j
If isnew Then
n = n + 1
rlt(n, 1) = arr(i, 1)
End If
End If
Next i
End If
Next st
'ç»æåå¦æ°è¡¨æ ¼
With Workbooks.Add
With .Sheets(1).Cells(1, 1).Resize(n, 1)
.NumberFormat = "@"
.Value = rlt
.Select
End With
End With
End Sub