帖子: 102
主題: 30
精華: 0
積分: 137
點名: 0
作業系統: winxp
軟體版本: 12
閱讀權限: 20
性別: 男
註冊時間: 2011-11-24
最後登錄: 2018-12-6

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2011-11-24 18:32 | 只看該作者

請問VBA 尋找資料的問題

請問一下 VBA尋找資料
Set c = Worksheets("AA").Columns("F").Find(.Cells(i, 7), LookIn:=xlValues, LookAt:=xlWhole)
是指到"AA"工作表中的F欄位中尋找符合Cells(i, 7)條件的值
原本是一對一搜尋
可以一對多整列帶出嗎？
如附件

謝謝

find.jpg (26.96 KB)

附件描述

樓主熱帖

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

2^#

發表於 2011-11-24 20:46 | 只看該作者

回復 1# tonycho33
用壓縮檔給個Excle檔案

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

3^#

發表於 2011-11-24 21:40 | 只看該作者

回復 1# tonycho33

Sub nn()
Range([J7], [J7].End(xlToRight)).ClearContents
Set a = [F:F].Find([I7], lookat:=xlWhole)
i = i + 1
[I7].Offset(, i) = a.Offset(, 1)
Do Until a.Offset(i) <> "" Or a.Offset(i, 1) = ""
[I7].Offset(, i) = a.Offset(i, 1)
i = i + 1
Loop
End Sub

複製代碼

學海無涯_不恥下問

TOP

tonycho33

中學生 Rank: 2

帖子: 102
主題: 30
精華: 0
積分: 137
點名: 0
作業系統: winxp
軟體版本: 12
閱讀權限: 20
性別: 男
註冊時間: 2011-11-24
最後登錄: 2018-12-6

4^#

發表於 2011-11-25 09:41 | 只看該作者

回復 1# tonycho33

find.rar (6.59 KB)

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

5^#

發表於 2011-11-25 10:02 | 只看該作者

回復 4# tonycho33

Sub nn()
Range([H5], [H5].End(xlToRight)).ClearContents '清除之前內容
Set a = [B:B].Find([G5], lookat:=xlWhole) '找到G5在B欄的位置
i = i + 1
[G5].Offset(, i) = a.Offset(, 1) 'G5向右寫入
Do Until a.Offset(i) <> "" Or a.Offset(i, 1) = "" '執行迴圈直到B欄不等於空白或C欄不等於空白
[G5].Offset(, i) = a.Offset(i, 1) 'G5向右寫入
i = i + 1
Loop
End Sub

複製代碼

學海無涯_不恥下問

TOP

tonycho33

中學生 Rank: 2

帖子: 102
主題: 30
精華: 0
積分: 137
點名: 0
作業系統: winxp
軟體版本: 12
閱讀權限: 20
性別: 男
註冊時間: 2011-11-24
最後登錄: 2018-12-6

6^#

發表於 2011-11-25 11:36 | 只看該作者

回復 5# Hsieh
請問一下，我若想讓G5以下每個都能對應，加入j的變數,可是這樣跑起來卻是出現一遍後就消失
麻煩解答謝謝

Sub nn()
With Worksheets("Sheet1")
Range([H5], [H5].End(xlToRight)).ClearContents '清除之前內容

for j=j+1
Set a = [B:B].Find(.cell(j,5), lookat:=xlWhole) '找到G5在B欄的位置

i = i + 1

cell(j,5).Offset(, i) = a.Offset(, 1) 'G5向右寫入

Do Until a.Offset(i) <> "" Or a.Offset(i, 1) = "" '執行迴圈直到B欄不等於空白或C欄不等於空白

cell(j,5).Offset(, i) = a.Offset(i, 1) 'G5向右寫入

i = i + 1

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

7^#

發表於 2011-11-25 14:34 | 只看該作者

回復 6# tonycho33

Sub Ex()
Dim Criterion As Range, Rng As Range, E As Range
Set Criterion = Range([G5], [G5].End(xlDown)) 'G5以下的範圍
Criterion.CurrentRegion.Offset(, 1) = "" 'G5的連續範圍往右1欄之範圍
For Each E In Criterion '依序處理 G5以下的範圍的Cell
Set Rng = [B:B].Find(E, lookat:=xlWhole) '找到G5在B欄的位置
If Not Rng Is Nothing Then
i = 0
Do
E.Offset(, i + 1) = Rng.Offset(i, 1)
i = i + 1
Loop Until Rng.Offset(i) <> "" Or Rng.Offset(i, 1) = ""
End If
Next
End Sub

複製代碼

TOP