返回列表 上一主題 發帖

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

starry1314
　暱稱: 豪

高中生Rank: 3Rank: 3

帖子
471 
主題
121 
精華
0 
積分
579 
點名
0  
作業系統
WIN10 
軟體版本
OFFICE2019 
閱讀權限
50 
性別
男 
註冊時間
2015-4-16 
最後登錄
2023-1-17 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2015-5-17 21:43 | 只看該作者

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

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

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

請問有辦法做到這樣嗎？

收藏 分享

starry1314
　暱稱: 豪

高中生Rank: 3Rank: 3

帖子
471 
主題
121 
精華
0 
積分
579 
點名
0  
作業系統
WIN10 
軟體版本
OFFICE2019 
閱讀權限
50 
性別
男 
註冊時間
2015-4-16 
最後登錄
2023-1-17 
3#
發表於 2015-5-18 16:02 | 只看該作者
回復 2# rouber590324


    感謝幫忙！！！收下了∼

TOP

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
2#
發表於 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
羅

TOP

        靜思自在 : 君子立恆志，小人恆立志。
返回列表 上一主題