請問大大出現重複的值要怎麼抓相對應的值

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2013-7-12 16:18 | 顯示全部帖子

回復 12# 藍天麗池
程式碼依你1#的資料所寫試試看

Option Explicit
Sub Ex()
'Dim(關鍵字) 宣告變數為程式私用的變數
Dim N As String, Rng As Range 'String 字串型態 'Range(範圍)型態為物件
With Sheets("資料表") '修正為正確的工作表名稱
'.[E:E] = .Range("E:E") 'Sheets("資料表")的 E 欄
'Application.Max(.[E:E]) ->傳回E欗最大值
'Application.Min (.[E:E])->傳回E欗最小值
'N = InputBox("輸入數值") '不預設數值用此程式碼
'InputBox 函數顯示一對話方塊來做為提示，等使用者輸入文字或按下按鈕，並傳回包含文字方塊內容的String。
N = InputBox("輸入數值", , Application.Max(.[E:E]))
Set Rng = .Range("E:E").Find(What:=N, After:=Range("E1"), LookAt:=xlWhole) 'SET(設立物件變數)的關鍵字
' 請詳看 VBA Find方法, InputBox 函數的說明
If Not Rng Is Nothing Then 'Nothing: Find 找不到 N(的數值)
If Rng.Row = 2 Then '當Rng(物件)的列號是 2
Set Rng = Rng.Offset(, -1) '物件:原物件列位( 不動 ),欗位(左移一欄)
Else
Set Rng = Rng.Offset(-1, -1) '物件:原物件列位(上升一列),欗位(左移一欄)
End If
Rng.Select
MsgBox Rng.Address
End If
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

靜思自在 : 能幹不幹，不如苦幹實幹。