AkashiHayato wrote:
請問我這樣把他綜合起來:=TRANSPOSE($D$2:D2)=--($A$2:$A$10=TRANSPOSE($D$2:D2))=ROW($1:1)^0=MMULT(--...(恕刪)
比較短的公式，請參考
b2開始，其它往下拉
=IFERROR(INDEX($A$2:$A$10, MATCH(0, COUNTIF(B$1:$B1, $A$2:$A$10), 0),1),"")
(這是陣列公式)
如果要用 vba
改用worksheet change來觸發自動更新，會比較方便
'======================================================
'程式碼放在工作表1
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A2:A10")) Is Nothing Then
'out
Else
Columns("C:C").ClearContents
Range("A1:A10").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("c1:c10"), Unique:=True
Range("c1") = "總結"
End If
End Sub
'=======================================================
