帖子: 3
主題: 2
精華: 0
積分: 10
點名: 0
作業系統: XP
軟體版本: OFFICC2003
閱讀權限: 10
性別: 女
來自: TAIWAN
註冊時間: 2011-8-31
最後登錄: 2012-3-9

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2011-8-31 21:56 | 只看該作者

[發問] excel 利用vba比對兩個活頁簿資料

工作需要,想學vba ,麻煩高手幫忙解答一下
請問一下,我的EXCEL有兩個活頁簿, (總表) ( 123 )
總表: a:姓名 b:身份證 c:生日 d:電話
123: a:身份證 b:生日
如何將(123)的身份證與(總表)身份證比對,
如果(123)的身份證與(總表)身份證,一樣,
則將(123)的生日(欄位),填到(總表)生日(欄位).

(總表約有 3000筆資料)
(123約有 500筆資料)

dechiuan999

中學生 Rank: 2

帖子: 231
主題: 55
精華: 0
積分: 293
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: KEELUNG
註冊時間: 2010-7-24
最後登錄: 2018-8-28

2^#

發表於 2011-9-1 06:32 | 只看該作者

你好：
  下列語法請試試是否合適
Sub aa()

Dim mDic As Object
Dim mWk1 As Workbook
Dim mSht1 As Worksheet
Dim mRng As Range
Dim E As Range

Set mDic = CreateObject("Scripting.Dictionary")
Set mWk1 = Workbooks("總表")
With mWk1
Set mSht1 = Worksheets(1)
With mSht1
      Set mRng = .Range("b2:b" & .[a65536].End(xlUp).Row)
End With

For Each E In mRng
      If mDic.Exists(E.Value) = False Then
         mDic(E.Value) = E.Offset(, 1).Value
      End If
Next
End With

With Workbooks.Open(ThisWorkbook.Path & "\" & 123 & ".xls")

With Sheets(1)

For Each E In .Range(.[A2], .[A2].End(xlDown))

      E.Offset(, 1) = mDic(E.Value)

Next

End With

.Close

End With

End Sub

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

3^#

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

回復 2# dechiuan999
注意With裡的敘述要加 .
''''''''''''''''''''''''''''''''''''
With
Set mWk1 = Workbooks("總表")
With mWk1
Set mSht1 = .Worksheets(1)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
With Workbooks.Open(ThisWorkbook.Path & "\" & 123 & ".xls")
With .Sheets(1)

TOP

dechiuan999

中學生 Rank: 2

帖子: 231
主題: 55
精華: 0
積分: 293
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: KEELUNG
註冊時間: 2010-7-24
最後登錄: 2018-8-28

4^#

發表於 2011-9-1 09:46 | 只看該作者

謝謝版主大大。
小弟在語法上
會再多加注意。

TOP

kaki

小學生 Rank: 1

帖子: 3
主題: 2
精華: 0
積分: 10
點名: 0
作業系統: XP
軟體版本: OFFICC2003
閱讀權限: 10
性別: 女
來自: TAIWAN
註冊時間: 2011-8-31
最後登錄: 2012-3-9

5^#

發表於 2011-9-1 11:39 | 只看該作者

還是不行,
不行用迴圈寫 VBA嗎,

TOP

dechiuan999

中學生 Rank: 2

帖子: 231
主題: 55
精華: 0
積分: 293
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: KEELUNG
註冊時間: 2010-7-24
最後登錄: 2018-8-28

6^#

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

你好：
  小弟疏失將總表及123二者
顛倒了。
請再重試一次
Sub aa()

Dim mDic As Object
Dim mWk1 As Workbook
Dim mSht1 As Worksheet
Dim mRng As Range
Dim E As Range

Set mDic = CreateObject("Scripting.Dictionary")
Set mWk1 = Workbooks("123")
With mWk1
Set mSht1 = .Worksheets(1)
With mSht1
      Set mRng = .Range("a2:a" & .[a65536].End(xlUp).Row)
End With

For Each E In mRng
      If mDic.Exists(E.Value) = False Then
         mDic(E.Value) = E.Offset(, 1).Value
      End If
Next
End With

With Workbooks.Open(ThisWorkbook.Path & "\" & "總表" & ".xls")

With Sheets(1)

      For Each E In .Range(.[b2], .[b2].End(xlDown))

         E.Offset(, 1) = mDic(E.Value)

      Next

End With

.Close

End With

End Sub

TOP

gctsai