麻辣家族討論版版 » Excel程式區 » 請問大大出現重複的值要怎麼抓相對應的值

返回列表下一主題上一主題發帖

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

中學生 Rank: 2

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2013-7-8 21:25 | 只看該作者

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

本帖最後由藍天麗池於 2013-7-8 21:27 編輯

A B C D E
84558 7956 1 7951.886961 845
84558 7957 1 7951.889495 845
84558 7956 1 7951.89153 845
84558 7956 1 7951.893564 845
84558 7957 3 7951.901137 845
84558 7956 1 7951.903162 845
84559 7957 1 7951.905679 845
84559 7957 1 7951.908193 845
84559 7957 9 7951.930713 845
84559 7957 1 7951.933202 845
84600 7957 3 7951.940657 846
84600 7957 1 7951.943137 846
84600 7957 1 7951.945615 846
84600 7957 5 7951.957967 846
84601 7957 4 7951.967805 846
84601 7957 1 7951.970258 846
84601 7957 2 7951.975158 846
84601 7958 2 7951.981022 846

請問大大，我要怎麼寫VBA當E欄出現846時抓上一個845所對應左邊的值(7951.933202)

樓主熱帖

收藏

中學生 Rank: 2

帖子: 258
主題: 77
精華: 0
積分: 385
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-8-8
最後登錄: 2021-1-25

18^#

發表於 2013-7-13 12:13 | 只看該作者

藍天
你的Data是否為Excel a,b,c,d,e,f,...欄(已建立好)之情形下，
只要整合找出不同的 e 欄value 對應值為上ㄧ列d欄
若是如此，用VBA才是王道

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

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

17^#

發表於 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元的贊助,人人有能力.

高中生 Rank: 3 Rank: 3

帖子: 605
主題: 92
精華: 0
積分: 648
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 50
性別: 男
來自: macau
註冊時間: 2013-4-5
最後登錄: 2019-2-10

熱烈參與勳章好學求知勳章

16^#

發表於 2013-7-10 09:58 | 只看該作者

回復 14# 藍天麗池

upload your Excle file

ss

中學生 Rank: 2

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

15^#

發表於 2013-7-9 23:54 | 只看該作者

回復 13# sunnyso

大大你這個方法也不行ㄟ，感謝大大

中學生 Rank: 2

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

14^#

發表於 2013-7-9 23:46 | 只看該作者

回復 2# kimbal

大大你的兩個方法都不行，第一個方法由於E欄是公式所以MATCH找不到
第二個方式VBA出現錯誤1004(無法取得類別worksheetfunction的match屬性)
請問大大以上問題要如何解決呢??

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 472
主題: 5
精華: 0
積分: 485
點名: 0
作業系統: Windows
軟體版本: MS Office
閱讀權限: 100
性別: 男
來自: 香港
註冊時間: 2010-7-4
最後登錄: 2014-12-28

論壇貢獻勳章

13^#

發表於 2013-7-9 22:50 | 只看該作者

F2 的公式
=OFFSET(D1,MATCH(846,E:E,0)-2,0)

VBA:

On Error Resume Next
[F2] = [D1].Offset(Application.WorksheetFunction.Match(846, Columns(5), 0) - 2)

複製代碼

懂得發問,答案就會在其中

今日の一秒は明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

中學生 Rank: 2

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

12^#

發表於 2013-7-9 21:32 | 只看該作者

回復 9# sunnyso

如果是用DMAX是不行的，我試過了

中學生 Rank: 2

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

11^#

發表於 2013-7-9 21:19 | 只看該作者

回復 9# sunnyso

大大，小弟還無法下載附件，可以直接貼上來嗎??
大大用的是DMAX函數嗎??

高中生 Rank: 3 Rank: 3

帖子: 605
主題: 92
精華: 0
積分: 648
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 50
性別: 男
來自: macau
註冊時間: 2013-4-5
最後登錄: 2019-2-10

熱烈參與勳章好學求知勳章

10^#

發表於 2013-7-9 21:14 | 只看該作者

回復 5# 藍天麗池

根據你的條件（連續時間）不用VBA就可以做到，見附件。你一定要用VBA嗎？

sonny.rar (7.77 KB)

ss

靜思自在 : 慈悲沒有敵人，智慧不起煩惱。

返回列表下一主題上一主題