帖子: 79
主題: 19
精華: 0
積分: 148
點名: 0
作業系統: WINDOW7
軟體版本: EXCEL 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-5-21
最後登錄: 2023-3-13

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2017-10-20 21:22 | 只看該作者

vba find 多條件求教

安安! 大家好
我想請教各位大大  關於FIND的VBA方法

我的EXCEL表左邊有一堆數據希望用右的 4字開頭的開頭7個號碼來找左邊的資料

我現在的方法是用CTRL+F 來輸入右邊4字開頭的7個號碼來找左邊的資料  希望能變成VBA 去把資料找到就  複製一個  在旁邊的列

比如圖片這樣

附上附件我嘗試用錄製巨集的方式卻發現 FIND 的條件只有一個只可以在WHAT: 那輸入一個想不到怎麼一次過去處理求大大們指教 :Q

find.rar (2.14 KB)

樓主熱帖

adrian_9832

中學生 Rank: 2

帖子: 79
主題: 19
精華: 0
積分: 148
點名: 0
作業系統: WINDOW7
軟體版本: EXCEL 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-5-21
最後登錄: 2023-3-13

2^#

發表於 2017-10-21 15:11 | 只看該作者

求大大指教教我怎麼只拿取xx 前的數字至空格也可以啊 .......

TOP

kim223824

中學生 Rank: 2

帖子: 75
主題: 8
精華: 0
積分: 109
點名: 0
作業系統: windows XP
軟體版本: office 2010
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2015-4-19
最後登錄: 2024-8-10

3^#

發表於 2017-10-30 17:00 | 只看該作者

你的資料沒有規則，很難用VBA完成。

TOP

jcchiang

中學生 Rank: 2

帖子: 234
主題: 19
精華: 0
積分: 276
點名: 0
作業系統: Windows XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2013-1-7
最後登錄: 2021-10-7

4^#

發表於 2017-10-31 12:52 | 只看該作者

回復 2# adrian_9832
可以用Split指令
Sub ex()
Dim x
x = Split(Sheets(1).Range("a1"), "/") 'PN/NN NUMBERING:24312(0-1)XX/4100602(0-1)XX輸入在Range("a1")當示範,利用字串內的"/"將字串拆開
x = Split(x(2), "XX") '利用"XX"將4100602(0-1)取出
MsgBox x(0)
End Sub

TOP

adrian_9832

中學生 Rank: 2

帖子: 79
主題: 19
精華: 0
積分: 148
點名: 0
作業系統: WINDOW7
軟體版本: EXCEL 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-5-21
最後登錄: 2023-3-13

5^#

發表於 2017-11-5 19:15 | 只看該作者

本帖最後由 adrian_9832 於 2017-11-5 19:17 編輯

回復 4# jcchiang

大大 ! 請問Split(x(2) Split(x(1) 怎麼用的
還有MSGBOX X(0)

TOP

jcchiang

中學生 Rank: 2

帖子: 234
主題: 19
精華: 0
積分: 276
點名: 0
作業系統: Windows XP
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2013-1-7
最後登錄: 2021-10-7

6^#

發表於 2017-11-6 12:40 | 只看該作者

回復 5# adrian_9832
陣列形式
PN/NN NUMBERING:24312(0-1)XX/4100602(0-1)XX
當用"/"將字串拆開
x(0)=PN
x(1)= NN NUMBERING:24312(0-1)XX
x(2)=4100602(0-1)XX
在將x(2)用"XX"拆開
x(0)=4100602(0-1)

TOP

naruto018

中學生 Rank: 2

帖子: 91
主題: 5
精華: 0
積分: 130
點名: 0
作業系統: Win10
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2016-5-14
最後登錄: 2020-5-17

7^#

發表於 2017-11-6 18:09 | 只看該作者

回復 1# adrian_9832

參考看看
這程式未考慮找尋NN但只差最後一字的部分，會覆蓋前面已填入過

Public Sub text()
Dim FindRange As Range, FindString As Range
lastRow = Cells(ActiveSheet.Rows.Count, 2).End(xlUp).Row
Set FindRange = Worksheets(1).Range(Cells(1, 2), Cells(lastRow, 2))
Set FindString = Worksheets(1).Range(Cells(9, 13), Cells(Cells(ActiveSheet.Rows.Count, 13).End(xlUp).Row, 13))
For Each a In FindString
a1 = Left(a.Value, Len(a.Value) - 1)
Set c = FindRange.Find(a1, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
Cells(c.Row, 8).Value = Cells(a.Row, a.Column - 1).Value
Cells(c.Row, 9).Value = a.Value
Set c = FindRange.FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
Next
End Sub