標題: [發問] 請問關於不重複條件並依序以VLOOKUP依序列出 [打印本頁]

---

作者: starry1314    時間: 2015-5-17 21:43     標題: 請問關於不重複條件並依序以VLOOKUP依序列出

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

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

請問有辦法做到這樣嗎？

[attach]20964[/attach]

---

作者: rouber590324    時間: 2015-5-18 08:13

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    時間: 2015-5-18 16:02

回復 2# rouber590324


    感謝幫忙！！！收下了∼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)