[發問] 依據資料表中最大值與最小值中自動帶出相關資料

marklos

依據資料表中最大值與最小值中自動帶出相同欄位的相關資料

依據資料表中最小值 帶出其前兩欄位的數據 , 並填寫在G12 與H12 欄位

下載 (83.56 KB)

2015-11-23 10:02

依據資料表中最大值 帶出其前兩欄位的數據 , 並填寫在G10 與H10 欄位

下載 (92.62 KB)

2015-11-23 10:02

依據資料表中最大值 帶出其前兩欄位的數據 , 並填寫在G10 與H10 欄位

下載 (118.47 KB)

2015-11-23 10:06

Q6.rar (102.69 KB)

下載次數: 5

2015-11-23 10:15

謝謝

GBKEE

回復 1# marklos
試試看

1. Sub Ex()
   
2.     Dim Rng As Range, xMax As Double, xMin As Double, m As Variant
   
3.     With Sheets("VBNB")
   
4.         m = .Range("i" & Rows.Count).End(xlUp).Row
   
5.         Set Rng = .Range("i14:" & "i" & m) '資料範圍
   
6.         xMax = Application.Max(Rng)
   
7.         m = Application.Match(xMax, Rng, 0)
   
8.         Set m = Rng.Cells(m).EntireRow
   
9.         .Range("g10") = m.Range("g1")
   
10.         .Range("h10") = m.Range("h1")
    
11.         .Range("i10") = xMax
    
12.         xMin = Application.Min(Rng)
    
13.         m = Application.Match(xMin, Rng, 0)
    
14.         Set m = Rng.Cells(m).EntireRow
    
15.         .Range("g12") = m.Range("g1")
    
16.         .Range("h12") = m.Range("h1")
    
17.         .Range("i12") = xMin
    
18.     End With
    
19. End Sub

複製代碼

hcm19522

I10{=INDEX(I:I,MATCH(MAX($I15:$I999),$I15:$I999,)+14)
陣列 再複製G10 ,H10

marklos

版主謝謝你的幫忙
但如果要在不同的工作表內執行的話 ~ 要怎麼做 ?
另外 在附件中另一個工作表內 , 不同格式的狀態下 , 也是要取得相關數據 , 那要怎麼做 ?
謝謝

marklos

回復 3# hcm19522


    謝謝你 ~這方法也可以 !

marklos

回復 2# GBKEE


    版主謝謝你的幫忙
但如果要在不同的工作表內都能執行的話 ~ 要怎麼做 ?
另外 在附件中另一個工作表內 , 不同格式的狀態下 , 也是要都能取得相關數據 , 那要怎麼做 ?
謝謝

GBKEE

回復 6# marklos
不同的工作表內都能執行的話 ~ 要怎麼做
要有規律性可一式到底,不然要量身訂作

1. Sub Ex()
   
2.     Dim Rng As Range, xMax As Double, m As Variant
   
3.     With Sheets("VC")
   
4.         m = .Range("J" & Rows.Count).End(xlUp).Row
   
5.         Set Rng = .Range("J4:" & "J" & m) '資料範圍
   
6.         xMax = Application.Max(Rng)
   
7.         m = Application.Match(xMax, Rng, 0)
   
8.         Set m = Rng.Cells(m).EntireRow
   
9.         m.Select
   
10.         .Range("J2") = xMax
    
11.         .Range("D2") = m.Range("D1")
    
12.         .Range("H2") = m.Range("H1")
    
13.     End With
    
14. End Sub

複製代碼