帖子: 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

樓主熱帖

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

2^#

發表於 2012-11-15 16:59 | 只看該作者

回復 1# JOSH

個人建議..
如果您要用VBA 寫法
可以不用拘束於 "=XXXXXX"
直接判斷就好..
例如
      For i = 4 To ActiveSheet.Range("a4").CurrentRegion.Rows.Count
               If (InStr(1, 工作表1.Cells(i, 1), "搜尋") >= 1) Then
                  工作表1.Cells(i, 7) = "find"
                  工作表1.Cells(i, 11) = InStr(工作表1.Cells(i, 1), "搜尋")
                  s = s + 1
               else
工作表1.cells(i,7)=""
End If

      next

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

JOSH

小學生 Rank: 1

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

3^#

發表於 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

小學生 Rank: 1

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

4^#

發表於 2012-11-15 17:35 | 只看該作者

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

Sub h()

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

Spare parts2.zip (9.52 KB)

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 267
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-10-31

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

5^#

發表於 2012-11-15 21:28 | 只看該作者

回復 4# JOSH

Sub h()
Set d = CreateObject("Scripting.Dictionary")
With Sheets("List")
For Each a In .Range(.[A2], .[A2].End(xlDown))
d(a.Value) = a.Offset(, 7)
Next
End With
With Sheets("Summary")
For i = 4 To .[IV2].End(xlToLeft).Column
For Each a In .Range(.[A4], .[A4].End(xlDown))
.Cells(a.Row, i) = d(.Cells(2, i) & a)
Next
Next
End With
End Sub

複製代碼

學海無涯_不恥下問

TOP

mark15jill

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

6^#

發表於 2012-11-16 09:44 | 只看該作者

回復 3# JOSH

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

Summary! .cells(XXXXXXXXXXXX
改成 Summary.cells(XXXXXXXXXXXXXXX

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

TOP

JOSH