如何把EXCEL SHEEP中的內容當資料庫，搜尋後再丟至要的分頁中? - Excel程式區

返回列表下一主題上一主題發帖

[發問] 如何把EXCEL SHEEP中的內容當資料庫，搜尋後再丟至要的分頁中?

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

4^# 跳轉到 »

發表於 2011-4-25 08:37 | 只看該作者

Sub yy()
Dim c As Range, i%
With Sheet1
For i = 2 To .[a65536].End(3).Row
Set c = Sheet2.[a:a].Find(.Cells(i, 2))
If Not c Is Nothing Then
.Cells(i, 3).Resize(, 2) = c(1, 2).Resize(, 2).Value
End If
Set c = Sheet3.[a:a].Find(.Cells(i, 1))
If Not c Is Nothing Then
.Cells(i, 5).Resize(, 3) = c(1, 2).Resize(, 3).Value
End If
Next
End With
End Sub

複製代碼

TOP

atuan207

中學生 Rank: 2

帖子: 27
主題: 7
精華: 0
積分: 69
點名: 0
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
性別: 男
註冊時間: 2011-4-19
最後登錄: 2012-6-26

3^#

發表於 2011-4-24 22:53 | 只看該作者

本帖最後由 atuan207 於 2011-4-25 00:23 編輯

不對耶，我的問題不需要關連
我想我真的問題問的不好，不好意思

我是想把sheet2、3當成資料庫，sheet1的A、B行各自當成一個比對資料的值，做兩次比對，第一次是對sheet1的A、接著再做B
EX sheet2 依據是從sheet1 B行找到相同的"姓名"後把sheet2 B、C行資料送回sheet1的C、D行
sheet3 依據是從sheet1 A行找到相同的"學號"把sheet3 B、C、D資料送回aheet1的E、F、G行

這樣該怎麼做呢?
我目前自己翻書找到的方式是Range("B2:C2").copy range("C2")
這樣只能對單筆
不過配合搜尋後就不知道該怎麼做了

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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