《發問》vba-名單比對相符合回寫資料

帖子: 77
主題: 30
精華: 0
積分: 110
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2013-7-14
最後登錄: 2018-10-3

2^#

發表於 2014-1-16 23:10 | 顯示全部帖子

回復 2# Hsieh

感謝！我套入後，資料來源符合名單的只會出現一次，如果，資料來源中，人名出現多次也會同樣會帶入比對資料的摺頁，要怎麼做？
不好意思，我剛剛沒有表達清楚！

新人一枚

帖子: 77
主題: 30
精華: 0
積分: 110
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2013-7-14
最後登錄: 2018-10-3

3^#

發表於 2014-1-16 23:44 | 顯示全部帖子

[版主管理留言]

Hsieh(2014-1-16 23:53): 這些都是基本問題，論壇中都討論過，新手就請多爬文

謝謝！可以套入了！但是
可請教幾個問題嗎？（我初入門不太了解，所以問了笨問題）

For Each A In .Range(.[A2], .[A2].End(xlDown))
為什麼  .Range前面會有個點，而(.[A2], .[A2].也都會有個點

If Not Rng Is Nothing Then  這句程序碼的意思？

s&  這是定義什麼？

如果，我想取的資料來源若不是連續欄位？（可能是A、B、C、G、I欄）是不是就不可以用
Ar(s) = Application.Transpose(Application.Transpose(c.Resize(, 4).Value))

新人一枚

帖子: 77
主題: 30
精華: 0
積分: 110
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2013-7-14
最後登錄: 2018-10-3

4^#

發表於 2014-1-17 17:57 | 顯示全部帖子

謝謝版主提醒及指導，也謝謝 GBKEE！我會再加油的，每天認真爬文的！
真的很感謝！

新人一枚

帖子: 77
主題: 30
精華: 0
積分: 110
點名: 0
作業系統: win7
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2013-7-14
最後登錄: 2018-10-3

5^#

發表於 2014-1-18 19:34 | 顯示全部帖子

我以GBKEE版主提供的進行了解後，要再調整將SHEETS("名單")的B欄位也同時回寫在SHEETS("比對後資料")，經改了一下後，結果帶出的資料不正確，請大家指導我！

Sub tt()
Dim rng(1 To 5) As Range, E, K As Range

Set rng(1) = Sheets("名單").Range("a2")

Set rng(3) = Sheets("資料來源").Range("a:a")

Do While rng(1) <> ""
Set rng(4) = rng(3).Find(rng(1), lookat:=xlWhole)

If Not rng(4) Is Nothing Then
   rng(3).Replace rng(1), "=book", xlWhole
   With rng(3).SpecialCells(xlCellTypeFormulas, xlErrors)
         .Value = rng(1)
         With rng(1)
         For Each E In .Cells
            For Each K In .Cells

               With Sheets("比對後資料")
                     Cells(.UsedRange.Rows.Count + 1, "C").Value = K.Offset(, 1)
                     Cells(.UsedRange.Rows.Count, "A").Value = E
                     Cells(.UsedRange.Rows.Count, "B").Value = E.Range("B1")


               End With
            Next
         Next
         End With
   End With


End If
Set rng(1) = rng(1).Offset(1)

Loop

End Sub

新人一枚