[發問] 請問關於不重複條件並依序以VLOOKUP依序列出

starry1314

請問有辦法達到這種功能嗎？
如Ｃ欄－每天都會有大量不固定且重複的值

可在Ａ２自動讀取Ｃ欄的第一個重複值
　　Ａ３自動讀取Ｃ欄的第二個重複值　
　　Ａ４自動讀取Ｃ欄的第三個重複值
依此類推。。。

請問有辦法做到這樣嗎？

下載 (13.71 KB)

2015-5-17 21:41

rouber590324

DEAR  SIR
用VBA如下  執行即可.

Sub AA()
On Error Resume Next
Dim Myarr()
For Each A In Range([C1], [C65536].End(xlUp))
If WorksheetFunction.CountIf(Range([C1], [C65536].End(xlUp)), A) > 1 Then
    If WorksheetFunction.Match(A, Myarr, 0) = 0 Then
    ReDim Preserve Myarr(i)
    Set Myarr(i) = A
    i = i + 1
    End If
End If
Next
[A2].Resize(i, 1) = WorksheetFunction.Transpose(Myarr)
End Sub

starry1314

回復 2# rouber590324


    感謝幫忙！！！收下了～