[發問] 又黎VLOOKUP 開題

帖子: 21
主題: 4
精華: 0
積分: 30
點名: 0
作業系統: windows7
軟體版本: office2003
閱讀權限: 10
性別: 男
註冊時間: 2013-3-13
最後登錄: 2013-4-26

12^#

發表於 2013-3-26 17:05 | 只看該作者

回復 9# GBKEE

成功了, 多謝大大幫忙.

帖子: 21
主題: 4
精華: 0
積分: 30
點名: 0
作業系統: windows7
軟體版本: office2003
閱讀權限: 10
性別: 男
註冊時間: 2013-3-13
最後登錄: 2013-4-26

11^#

發表於 2013-3-26 17:04 | 只看該作者

回復 8# Hsieh

成功了, 多謝大大幫忙.

帖子: 21
主題: 4
精華: 0
積分: 30
點名: 0
作業系統: windows7
軟體版本: office2003
閱讀權限: 10
性別: 男
註冊時間: 2013-3-13
最後登錄: 2013-4-26

10^#

發表於 2013-3-26 17:04 | 只看該作者

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

GBKEE

超級版主 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兔年全勤獎章

9^#

發表於 2013-3-26 16:51 | 只看該作者

回復 7# yowhome
試試看

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

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

Hsieh

超級版主 Rank: 8 Rank: 8

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

8^#

發表於 2013-3-26 16:34 | 只看該作者

回復 7# yowhome

直接寫入公式計算

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

複製代碼

學海無涯_不恥下問

帖子: 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 就係我想要既結果.

GBKEE

超級版主 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兔年全勤獎章

6^#

發表於 2013-3-26 15:00 | 只看該作者

回復 4# yowhome

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

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

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

Scott090

高中生 Rank: 3 Rank: 3

帖子: 519
主題: 54
精華: 0
積分: 595
點名: 250
作業系統: win 10
軟體版本: []
閱讀權限: 50
性別: 男
註冊時間: 2013-3-19
最後登錄: 2024-11-15

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章 2015羊年全勤獎章

5^#

發表於 2013-3-26 14:08 | 只看該作者

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

帖子: 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 既方法做, 但係唔成功, 我想問下各位大大應該點做好??