12
返回列表 上一主題 發帖

[發問] 又黎VLOOKUP 開題

yowhome

帖子
21 
主題
4 
精華
0 
積分
30 
點名
0  
作業系統
windows7 
軟體版本
office2003 
閱讀權限
10 
性別
男 
註冊時間
2013-3-13 
最後登錄
2013-4-26 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-3-26 10:24 | 只看該作者

[發問] 又黎VLOOKUP 開題

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

HELP.zip (50.92 KB)
收藏 分享

p212

帖子
618 
主題
17 
精華
0 
積分
663 
點名
1  
作業系統
WINDOWS 7 
軟體版本
OFFICE 2013 
閱讀權限
50 
性別
男 
來自
Pingtung 
註冊時間
2011-9-2 
最後登錄
2025-1-2 

2014馬年全勤獎章2013蛇年全勤獎章熱烈參與勳章
2#
發表於 2013-3-26 11:33 | 只看該作者
回復 1# yowhome
例如：
1、請在Sheet2之A2儲存格寫入
=VLOOKUP(D2,Sheet1!A:B,2,0)
2、往下複製公式即可
請參考！

TOP

yowhome

帖子
21 
主題
4 
精華
0 
積分
30 
點名
0  
作業系統
windows7 
軟體版本
office2003 
閱讀權限
10 
性別
男 
註冊時間
2013-3-13 
最後登錄
2013-4-26 
3#
發表於 2013-3-26 12:00 | 只看該作者
回復 2# p212


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

TOP

yowhome

帖子
21 
主題
4 
精華
0 
積分
30 
點名
0  
作業系統
windows7 
軟體版本
office2003 
閱讀權限
10 
性別
男 
註冊時間
2013-3-13 
最後登錄
2013-4-26 
4#
發表於 2013-3-26 12:26 | 只看該作者
SORRY. 可能係我打得唔好, 再黎!!

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

TOP

Scott090

帖子
531 
主題
58 
精華
0 
積分
611 
點名
268  
作業系統
win 10 
軟體版本
[] 
閱讀權限
50 
性別
男 
註冊時間
2013-3-19 
最後登錄
2025-11-4 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章2015羊年全勤獎章
5#
發表於 2013-3-26 14:08 | 只看該作者
我是小學生不能看到附件內涵；建議試用 Application.worksheetfunction.Vlookup  .....在VBA內呼叫工作表函數

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
6#
發表於 2013-3-26 15:00 | 只看該作者
回復 4# yowhome
用SHEET2 D COLUMN 既資料, 去對比SHEET1 A COLUMN既資料

SHEET2 D COLUMN 的資料有許多是一連串相同的要如何比對,還需多說明.(上傳範例說明)
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

yowhome

帖子
21 
主題
4 
精華
0 
積分
30 
點名
0  
作業系統
windows7 
軟體版本
office2003 
閱讀權限
10 
性別
男 
註冊時間
2013-3-13 
最後登錄
2013-4-26 
7#
發表於 2013-3-26 15:43 | 只看該作者
回復 6# GBKEE


HELP.zip (51.2 KB)

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

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
270  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2025-11-4 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
8#
發表於 2013-3-26 16:34 | 只看該作者
回復 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
複製代碼
學海無涯_不恥下問

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
9#
發表於 2013-3-26 16:51 | 只看該作者
回復 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
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

yowhome

帖子
21 
主題
4 
精華
0 
積分
30 
點名
0  
作業系統
windows7 
軟體版本
office2003 
閱讀權限
10 
性別
男 
註冊時間
2013-3-13 
最後登錄
2013-4-26 
10#
發表於 2013-3-26 17:04 | 只看該作者
2個都成功, 多謝大大幫忙.

TOP

        靜思自在 : 道德是提昇自我的明燈，不該是呵斥別人的鞭子。
12
返回列表 上一主題