[發問] 又黎VLOOKUP 開題

yowhome

各位大大, 又係小弟想請教一下, 係列表, SHEET1 係 資料表,
SHEET2係工作表, 我想要的結果: 用SHEET2 D COLUMN 既資料, 去對比SHEET1 A COLUMN既資料,
符合條件就回傳 SHEET1 BCOLUMN 既資料, 直至SHEET2 D COLUMN 空白為止,
之前試過用VLOOKUP 既方法做, 但係唔成功, 我想問下各位大大應該點做好??

HELP.zip (50.92 KB)

下載次數: 5

2013-3-26 10:24

p212

回復 1# yowhome
例如：
1、請在Sheet2之A2儲存格寫入
=VLOOKUP(D2,Sheet1!A:B,2,0)
2、往下複製公式即可
請參考！

yowhome

回復 2# p212


    多謝大大提供, 但這不是我想要的資料, 因為SHEET2 的 D COLUMN 每次輸入的資料都不同, 我想要的是在VBA入面, 做到我以上的效果.

yowhome

SORRY. 可能係我打得唔好, 再黎!!

SHEET1 係 資料表, SHEET2係工作表, 因為SHEET2既 D COLUMN 既資料每次都不同,
我想要的結果: 係VBA入面, 用SHEET2 D COLUMN 既資料, 去對比SHEET1 A COLUMN既資料,
符合條件就回傳 SHEET1 B COLUMN 既資料, 直至SHEET2 D COLUMN 空白為止,
之前試過係VBA入面用VLOOKUP 既方法做, 但係唔成功, 我想問下各位大大應該點做好??

Scott090

我是小學生不能看到附件內涵；建議試用 Application.worksheetfunction.Vlookup  .....在VBA內呼叫工作表函數

GBKEE

回復 4# yowhome

用SHEET2 D COLUMN 既資料, 去對比SHEET1 A COLUMN既資料

SHEET2 D COLUMN 的資料有許多是一連串相同的要如何比對,還需多說明.(上傳範例說明)

yowhome

回復 6# GBKEE


HELP.zip (51.2 KB)

下載次數: 7

2013-3-26 15:37

唔好意思, 再黎, SHEET2 D COLUMN  只係工作表其中一欄, 我要將佢同SHEET1 既資料表相對, 回傳SHEET1 B COLUMN既 資料到SHEET2 A COLUMN,
附件中SHEET2 A COLUMN 就係我想要既結果.

Hsieh

回復 7# yowhome

直接寫入公式計算

1. Sub ex()
   
2. With Sheet2
   
3.   With .Range(.[A2], .[D2].End(xlDown).Offset(, -3))
   
4.   .FormulaR1C1 = "=VLOOKUP(RC[3],Sheet1!R2C1:R65536C3,2,0)"  '寫入公式
   
5.   .Value = .Value  '寫入值
   
6.    End With
   
7. End With
   
8. End Sub

複製代碼

GBKEE

回復 7# yowhome
試試看

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Ar(), R As Integer, I As Integer, M As Variant
   
4.     With Sheet2
   
5.         R = .[d1].End(xlDown).Row      'D欄最後有資料的列號數
   
6.         .Range("A2:A" & .Rows.Count) = ""      '清除A欄舊有資料
   
7.         ReDim Ar(2 To R)               '重置陣列
   
8.         For I = 2 To R
   
9.             M = Application.Match(.Cells(I, "D"), Sheet1.Range("A:A"), 0)
   
10.             'Match函數:找不到傳回錯誤值 , 找到傳回 數字
    
11.             If IsNumeric(M) Then Ar(I) = Sheet1.Cells(M, "B")
    
12.         Next
    
13.         .Range("A2:A" & R) = Application.Transpose(Ar)
    
14.     End With
    
15. End Sub

複製代碼

yowhome

2個都成功, 多謝大大幫忙.