- 帖子
- 405
- 主題
- 58
- 精華
- 0
- 積分
- 489
- 點名
- 22
- 作業系統
- win7
- 軟體版本
- office 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2012-10-30
- 最後登錄
- 2024-5-4
|
Sub Worksheet()
Dim LastRec As Integer
Dim i As Integer
Worksheets("Oracle").Range("G1").Select
ActiveCell.End(xlDown).Select
LastRec = ActiveCell.Row
For i = 2 To LastRec
Worksheets("Oracle").Range("A" & i).Value = Worksheets("Oracle").Range("G" & i).Value '將G欄的值COPY到A欄
If IsError(Application.VLookup(Worksheets("Oracle").Range("C" & i).Value, Sheets("Follower").Range("A:E"), 5, False)) Then
Worksheets("Oracle").Range("B" & i).Value = "" 假如SHEET ORACLE C欄的值在SHEET FOLOWER A：E欄找不到，就將B欄設定空格
Else
Worksheets("Oracle").Range("B" & i).Value = Application.VLookup(Worksheets("Oracle").Range("c" & i).Value, Sheets("Follower").Range("A:E"), 5, False) 否則將SHEET ORACLE C欄在SHEET FOLLOWER尋找相同，並將相同的E欄值放在SHEET ORACLE B欄
End If
Next i
i = i + 1
End Sub
運行大約7000ROW,但運行得很慢，請問各位大大，有沒有可以加快運行的方法？ |
|
發表於 2012-12-3 15:27
| 
