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

求助 VBA Vlook 要執行好久

JOSH

小學生 Rank: 1

帖子: 12
主題: 3
精華: 0
積分: 20
點名: 0
作業系統: Windows
軟體版本: office 2003
閱讀權限: 10
性別: 男
註冊時間: 2010-6-30
最後登錄: 2013-6-4

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2012-11-15 16:46 | 顯示全部帖子

求助 VBA Vlook 要執行好久

Dear 大大們
下列是我下的指令，可是要執行好久~~
請問
1.要如何修改才不會執行那來久
2.要如何加入當V無資料時，以空值顯示
謝謝~ 感激不盡

Dim i As Integer
Range("d4:d2000") = "" '(清除舊有資料)
For i = 4 To 2000 '(決定有幾多行)
Range("D4").Select
Cells(i, "D") = "=VLOOKUP(""1002""&RC[-3],List!C[-3]:C[13],8,FALSE)"
Cells(i, "D") = Cells(i, "D").Value
Next i

樓主熱帖

JOSH

小學生 Rank: 1

帖子: 12
主題: 3
精華: 0
積分: 20
點名: 0
作業系統: Windows
軟體版本: office 2003
閱讀權限: 10
性別: 男
註冊時間: 2010-6-30
最後登錄: 2013-6-4

2^#

發表於 2012-11-15 17:31 | 顯示全部帖子

大大~~ 請問我那裡錯了嗎?
請指導
謝謝

Sub h()

For i = 4 To ActiveSheet.Range("a4").CurrentRegion.Rows.Count
If (InStr(1, Summary!.Cells(i, 1), "=VLOOKUP(""1002""&RC[-3],List!C[-3]:C[13],8,FALSE)") >= 1) Then
Summary!.Cells(i, 7) = "find"
Summary!.Cells(i, 11) = InStr(Summary!.Cells(i, 1), "=VLOOKUP(""1002""&RC[-3],List!C[-3]:C[13],8,FALSE)")
s = s + 1
Else
Summary!.Cells(i, 7) = ""
End If

Next

End Sub

TOP

JOSH