求用VBA,由a列編號 得到b列不重復匯總 如下圖

Sub?test()

Dim?i%,?n%,?a,?r,?m

r?=?Range("a"?&?Rows.Count).End(xlUp).Row

n?=?2

For?i?=?2?To?r

a?=?Cells(i,?1).Text

Set?m?=?Range("b2:b"?&?n).Find(What:=a,?SearchDirection:=xlPrevious)

If?m?Is?Nothing?Then

Cells(n,?2)?=?a

n?=?n?+?1

End?If

Next

Activesheet.Sort.SortFields.Clear

Activesheet.Sort.SortFields.Add2?Key:=Range("B2"),?_

SortOn:=xlSortOnValues,?Order:=xlAscending,?DataOption:=xlSortNormal

With?Activesheet.Sort

.SetRange?Range("b2:b"?&?1000)

.Header?=?xlGuess

.MatchCase?=?False

.Orientation?=?xlTopToBottom

.SortMethod?=?xlPinYin

.Apply

End?With

End?Sub