一個VLOOKUP函數問題

317

大大們, 安好
有一VLOOKUP問題請教,現把附件上傳, 請大大們教導, 謝謝!!
Book1.rar (8.71 KB)

下載次數: 13

2012-4-22 22:09

register313

回復 1# 317

先用函數來完成,參考

1.選C4~C13
  輸入=TRANSPOSE(OFFSET(Sheet1!B3:K3,MATCH(C3,Sheet1!A3:A18,0)-1,0))
   Ctrl+Shift+Enter 完成輸入
2.C14=VLOOKUP(C3,Sheet1!A3:M18,12,0)&VLOOKUP(C3,Sheet1!A3:M18,13,0)

transpose.rar (6.52 KB)

下載次數: 21

2012-4-22 22:26

317

回復 2# register313
謝謝大大回應, 其實我現時之檔案也是函數完成, 函數雖不是同一但功效與大大的一樣, 但真心感謝大大,
因檔案有時給予其他同事使用, 往往做成, 工作表函數損壞, 而同事亦不明白原理, 故希望能用程式取代, 因程式是在程式區, 是不會受到損壞,故請大大們協助, 謝謝!!

Hsieh

回復 3# 317

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Dim A As Range
   
3. If Target.Address <> "$C$3" Then Exit Sub
   
4. Set A = Sheet1.Columns("A:A").Find(Target, lookat:=xlWhole)
   
5. If A Is Nothing Then Exit Sub
   
6. [C4].Resize(10, 1) = A.Offset(, 1).Resize(, 10).Value
   
7. [C14] = A.Offset(, 11) & A.Offset(, 12)
   
8. End Sub

複製代碼

317

回復 4# Hsieh
謝謝版主大大, 衷心感謝, 祝快樂..

周大偉

Hsieh 版主大大,好
小弟有問題請教, 現把問題寫於檔案工作表3, 請大大教導, 感恩
aa.rar (8.97 KB)

下載次數: 7

2012-4-24 01:52

周大偉

transpose.rar (20.27 KB)

下載次數: 2

2012-4-24 18:52

回復 2# register313
大大, 好
小弟試用大大函數, 這條函數均用上陣列
=TRANSPOSE(OFFSET(Sheet1!B3:K3,MATCH(C3,Sheet1!A3:A18,0)-1,0))
=VLOOKUP(C3,Sheet1!A3:M18,12,0)&VLOOKUP(C3,Sheet1!A3:M18,13,0)
b3:k3是傳回欄位b至k, a3:a18是範圍, 按若改變範圍, a1:1000, 對話盒彈出提示, 不能改變陣列一部份, 請教大大, 若把範圍若大是如何修改
謝謝謝!

register313

回復 7# 周大偉

請詳看2#之操作步驟
transpose.rar (22.5 KB)

下載次數: 15

2012-4-24 19:13

register313

回復 6# 周大偉

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Dim A As Range
   
3. If Target.Address <> "$C$3" Then Exit Sub
   
4.   Set A = Sheet1.Columns("A:A").Find(Target, lookat:=xlWhole)
   
5. If A Is Nothing Then Exit Sub
   
6.   [C4].Resize(10, 1) = Application.Transpose(A.Offset(, 1).Resize(, 10).Value)
   
7.   [C14] = A.Offset(, 11) & A.Offset(, 12)
   
8. End Sub

複製代碼

aa.rar (9.17 KB)

下載次數: 16

2012-4-24 19:20

周大偉

回復 9# register313
謝過大大回應,  衷心感謝謝!!,