返回列表 上一主題 發帖

求助 VBA Vlook 要執行好久

求助 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






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

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

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

Sub h()

For i = 4 To ActiveSheet.Range("a4") ...
JOSH 發表於 2012-11-15 17:31



    Spare parts2.zip (9.52 KB)

TOP

回復 5# Hsieh


    版大~~
可以麻煩你再幫我看看嗎~
我帶出來的資料都一樣
謝謝

Spare parts 1.zip (266.21 KB)

TOP

Dear Hsieh 版大~~
可以幫我看看嗎?2012-11-16 18:01
謝謝

TOP

        靜思自在 : 【蒙蔽的自由】人常在什麼都可以自由自在的時候,卻被這種隨心所欲的自由蒙蔽,虛擲時光而毫無覺知。
返回列表 上一主題