帖子: 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就卡住了。

樓主熱帖

asus103

中學生 Rank: 2

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

2^#

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

本帖最後由 asus103 於 2011-1-9 17:45 編輯

於SHEET 1 的D1中寫入
=IF(ISERROR(VLOOKUP(A1,Sheet2!A:B,2,FALSE)),"",VLOOKUP(A1,Sheet2!A:B,2,FALSE))
再向下拉

ASUS

TOP

MRSA

小學生 Rank: 1

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

3^#

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

回復 2# asus103

使用excel函數這個我知道怎麼寫.
我的問題是,我要使用VBA進行這項工作.我該怎麼寫語法?

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

4^#

發表於 2011-1-9 18:51 | 只看該作者

回復 3# MRSA

Sub Ex()
Dim E As Range, I
For Each E In Sheet1.Range("A:A").SpecialCells(xlCellTypeConstants)
I = Application.Match(E, Sheet2.Range("A:A"), 0)
If IsNumeric(I) Then E.End(xlToRight).Offset(, 1) = Sheet2.Cells(I, "B")
Next
End Sub

複製代碼

TOP

MRSA

小學生 Rank: 1

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

5^#

發表於 2011-1-9 19:33 | 只看該作者

回復 4# GBKEE

謝謝.
這是我沒用過的語法.
問題得到解決了.
再來我會研究一下這些語法的內容.

TOP

linshin1999

中學生 Rank: 2

帖子: 199
主題: 45
精華: 0
積分: 252
點名: 0
作業系統: windows 7 (X64)
軟體版本: office 2010 (x64)
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2010-12-24
最後登錄: 2020-3-31

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

6^#

發表於 2011-1-9 22:59 | 只看該作者

回復 4# GBKEE

請問  宣告式
      1).Dim E As Range , I 和 Dim  E, I  As Range 是一樣的意思嗎?

      2).For Each E In Sheet1.Range("A:A").SpecialCells(xlCellTypeConstants)
         中如果只這樣寫  Sheet1.range("A:A")  和  Sheet1.Range("A:A").SpecialCells(xlCellTypeConstants) 的差別在那裡? 不是都會掃描一遍嗎?

      3).I = Application.Match(E, Sheet2.Range("A:A"), 0)
         這樣一行這會在Sheet2.Range("A:A")掃描出相等的資嗎?

      4.)If IsNumeric(I) Then E.End(xlToRight).Offset(, 1) = Sheet2.Cells(I, "B")
         為什麼要作做  IsNumeric(I) 這個動作呢?

V98

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

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

7^#

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

這則好像有考試的感覺
一看到第1項就知道不一樣
舉個例子
Sub DimAs1()
Dim Mynum1, Mynum2 As Integer '這條 Mynum1 不會變Integer
Dim Total As Integer, MyString As String * 4 '字串長度為4

MyString = _
"撰寫小技巧": MsgBox MyString: MsgBox TypeName(MyString)

End Sub

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

TOP

linshin1999

中學生 Rank: 2

帖子: 199
主題: 45
精華: 0
積分: 252
點名: 0
作業系統: windows 7 (X64)
軟體版本: office 2010 (x64)
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2010-12-24
最後登錄: 2020-3-31

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

8^#

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

回復 7# HUNGCHILIN

阿吉版主:不是考試,是真的不懂,經過你的解釋意思是這樣的嗎?

Dim a, b As Intger

1)a 和 b 的型別是不一樣的. (a 是 Variant <Excel 的預設型別> ), b 是Integer .
2)意思是 Dim 後面的",", 是一個一個變數的分隔, 每個變數都是獨立的.

希望這次真的搞懂了,寫 VBA 時常在這裡出錯.

V98

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

Hsieh

超級版主 Rank: 8 Rank: 8

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

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