帖子: 13
主題: 6
精華: 0
積分: 25
點名: 0
作業系統: Windows 7
軟體版本: OFFICE 2010
閱讀權限: 10
性別: 男
註冊時間: 2010-8-8
最後登錄: 2011-10-14

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2011-1-9 17:23 | 只看該作者

不同工作表內的資料比對與填入.

本帖最後由 MRSA 於 2011-1-9 17:41 編輯

Worksheet 1:
　　　A　　　B　　　C
1　　12　　aaa　　high
2　　84　　daw　　light
3　　28　　add　　done

Worksheet 2:
　　　A　　　B
1　　28　　sale
2　　45　　lock
3　　84　　lock

我想依照兩個工作表中的A欄位內的數值比對出Worksheet 2裡B欄位的值，並填至Worksheet 1 的D欄位內，若Worksheet 2內沒有Worksheet 1裡A欄位內的數資，則D欄位顯示空白。
執行結果如下：
Worksheet 1:
　　　A　　　B　　　C　　　D
1　　12　　aaa　　high　　
2　　84　　daw　　light　　lock
3　　28　　add　　done　　sale

請問我該怎麼寫語法?
我用函數vlookup寫的時候，只要在worksheet 2裡找不到資料時，vba就卡住了。

樓主熱帖

Changbanana

中學生 Rank: 2

帖子: 76
主題: 17
精華: 0
積分: 95
點名: 0
作業系統: windowsxp
軟體版本: office2007
閱讀權限: 20
性別: 女
註冊時間: 2016-8-19
最後登錄: 2021-5-5

論壇贊助勳章

17^#

發表於 2016-9-21 12:02 | 只看該作者

回復 16# zyzzyva

謝謝你~沒事了
因為昨天再測試時一直出問題

已ok Thank you~

TOP

zyzzyva

中學生 Rank: 2

帖子: 109
主題: 1
精華: 0
積分: 116
點名: 0
作業系統: win7
軟體版本: 2007
閱讀權限: 20
註冊時間: 2016-8-4
最後登錄: 2018-10-22

論壇榮譽勳章論壇贊助勳章

16^#

發表於 2016-9-21 11:44 | 只看該作者

回復 15# Changbanana
這不是跟原po一樣的問題嗎，我用Hsieh版大的code測試可以阿？

TOP

Changbanana

中學生 Rank: 2

帖子: 76
主題: 17
精華: 0
積分: 95
點名: 0
作業系統: windowsxp
軟體版本: office2007
閱讀權限: 20
性別: 女
註冊時間: 2016-8-19
最後登錄: 2021-5-5

論壇贊助勳章

15^#

發表於 2016-9-20 10:54 | 只看該作者

回復 10# Hsieh

想請問
如果資料型態是"表格"的時候
該怎麼改寫呢

範例:
在工作表一的A欄NO.對應到工作表二的A欄number
單號一樣的時候
從工作表二的B欄的資料傳回工作表一的I欄
工作表1

工作表2

若需要檔案測試:

活頁簿1.zip (382.28 KB)

TOP

asus103

中學生 Rank: 2

帖子: 77
主題: 11
精華: 0
積分: 118
點名: 0
作業系統: winXP
軟體版本: office2007
閱讀權限: 20
性別: 男
註冊時間: 2010-12-24
最後登錄: 2011-3-2

14^#

發表於 2011-1-10 20:53 | 只看該作者

回復 12# GBKEE

感謝版主大大的回復

ASUS

TOP

HUNGCHILIN

　暱稱: 阿吉
　頭銜: 不恥下問,不斷學習,才會進步

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 647
主題: 190
精華: 24
積分: 1037
點名: 0
作業系統: windows7
軟體版本: Office 2010 ; OOO3.0 ; Google
閱讀權限: 100
性別: 男
來自: 竹南
註冊時間: 2010-5-2
最後登錄: 2022-6-24

貴賓勳章熱烈參與勳章好學求知勳章

13^#

發表於 2011-1-10 18:38 | 只看該作者

回復 8# linshin1999
:) 正確
這部份關係到程式速度與正確性要稍熟複習一下會較順

Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

TOP

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兔年全勤獎章

12^#

發表於 2011-1-10 16:24 | 只看該作者

With Sheets(2)中的End With為何放到最底下呢?
可以放在With Sheets(1)之前嗎?asus103 發表於 2011-1-10 08:15

可以的
With Sheets(2)中的End With寫在With Sheets(1)之前並不影響整個程式結構

TOP

asus103

中學生 Rank: 2

帖子: 77
主題: 11
精華: 0
積分: 118
點名: 0
作業系統: winXP
軟體版本: office2007
閱讀權限: 20
性別: 男
註冊時間: 2010-12-24
最後登錄: 2011-3-2

11^#

發表於 2011-1-10 08:15 | 只看該作者

回復 10# Hsieh
Hsieh大大
每一次看到您對dictionary使用的出神入化，總是忍不住讚嘆
有一是請教
With Sheets(2)中的End With為何放到最底下呢?
可以放在With Sheets(1)之前嗎?

ASUS

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

10^#

發表於 2011-1-10 00:10 | 只看該作者

回復 1# MRSA

Sub Ex()
Set d = CreateObject("Scripting.Dictionary")
With Sheets(2)
For Each a In .Range(.[A1], .[A65536].End(xlUp))
d(a.Value) = a.Offset(, 1)
Next
With Sheets(1)
For Each a In .Range(.[A1], .[A65536].End(xlUp))
a.Offset(, 3) = d(a.Value)
Next
End With
End With
End Sub

複製代碼

學海無涯_不恥下問

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

9^#

發表於 2011-1-10 00:04 | 只看該作者

回復 6# linshin1999

         2).For Each E In Sheet1.Range("A:A").SpecialCells(xlCellTypeConstants)
         中如果只這樣寫  Sheet1.range("A:A")  和  Sheet1.Range("A:A").SpecialCells(xlCellTypeConstants) 的差別在那裡? 不是都會掃描一遍嗎?
這是不同的，SpecialCells(xlCellTypeConstants)是常數儲存格，也就是會略過空格。你用錄製巨集方式，選取A欄/常用/尋找與取代/特殊/常數看看程式碼就知道
      3).I = Application.Match(E, Sheet2.Range("A:A"), 0)
         這樣一行這會在Sheet2.Range("A:A")掃描出相等的資嗎?
這是利用工作表函數MATCH找到對應位置，若沒找到正確資料會傳回錯誤植
      4.)If IsNumeric(I) Then E.End(xlToRight).Offset(, 1) = Sheet2.Cells(I, "B")
         為什麼要作做  IsNumeric(I) 這個動作呢?
如果 Application.Match(E, Sheet2.Range("A:A"), 0)能找到對應值，表示I彙是個長整數，所以是數值，沒找到就應是錯誤植，可用ISERROR函數測試。
您對EXCEL VBA的熱忱，小弟十分敬佩，不過在此提醒您，VBA還是要由EXCEL基本操作及功能著手，才能事半功倍。

學海無涯_不恥下問

TOP