- 帖子
- 38
- 主題
- 7
- 精華
- 0
- 積分
- 48
- 點名
- 0
- 作業系統
- win8
- 軟體版本
- office2010
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2015-4-30
- 最後登錄
- 2016-12-5
|
各位高手前輩~
拼拼湊湊弄了下面的程式碼,可以滿足到目前的需求~但是執行速度好慢~
目前可以修正我的程式碼~用更好的方式調整嗎?
我想要將 符合我給的條件 去 A row尋找
找到符合我要的值時,就往上搜索到符合條件的欄位,把這個欄位的值 抓走
可是我只要抓符合條件的第一筆資料,其他的不要~
就這樣,我用了錄製聚集的方式~~傻傻地完成了
可是這不是我想要的速度~好慢喔
有機會調整嗎?懇求指點一二
有想過丟到陣列去~但目前還不會如何去陣列搜索符合我要的第一筆資料~因為會有很多筆類似
懇求指點一二
聽同學說~~方法很多種~但我還沒有開竅 ORZ:'(
Sub TEST ()
Dim zz As String
For i = 2 To Cells(Rows.Count, 10).End(xlUp).Row
zz = Cells(i, 10).Value
Columns("A:A").Select
Selection.Find(What:=zz, after:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate
Cells.Find(What:=" (net ", after:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, _
MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate
Cells(i, 11) = ActiveCell
Cells(i, 11) = Right(Cells(i, 11), Len(Cells(i, 11)) - 7)
Next
Cells(1, 10).Select
End Sub |
|
發表於 2015-5-11 23:35
| 
