「呼叫工作表函數」使用上的問題，請不吝指教

大家好~
我想請問的是在VBA中，如果使用Application.WorksheetFunction.CountIf
我想在sheet1的A欄中逐一比對sheet2的A欄中是否已出現
個人寫的Code如下
Dim myrange As Range
w = 2
Do While Sheet1.Cells(w, "A") <> Empty
      ww = Sheet1.Cells(w, "A")
      Set myrange = Worksheets(2).Range("A:A")
      yy = Application.WorksheetFunction.CountIf(myrange, ww)
      If yy <> 0 Then Exit Do
....
w = w + 1
Loop
ww是商品代碼，問題出在COUNTIF第二個引數似乎在用變數寫入時用法不對…
麻煩各位先進指點一二~感謝

樓主熱帖

不進則退

mnsmrtl

中學生 Rank: 2

帖子: 51
主題: 17
精華: 0
積分: 200
點名: 0
作業系統: winxp
軟體版本: officexp
閱讀權限: 20
性別: 男
註冊時間: 2010-7-31
最後登錄: 2018-9-19

6^#

發表於 2010-8-18 17:05 | 只看該作者

原來如此，我懂了，感謝樓上大大的指導

不進則退

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

5^#

發表於 2010-8-16 18:30 | 只看該作者

回復 4# mnsmrtl

yy = Application.WorksheetFunction.CountIf(Myrange, ww)  '這行沒錯
If yy <> 0 Then
         ' Exit Do 離開回圈  就結束程式   請刪掉這行
  Sheet1.Cells(w, "O") = 1
'
'

TOP

mnsmrtl

中學生 Rank: 2

帖子: 51
主題: 17
精華: 0
積分: 200
點名: 0
作業系統: winxp
軟體版本: officexp
閱讀權限: 20
性別: 男
註冊時間: 2010-7-31
最後登錄: 2018-9-19

4^#

發表於 2010-8-15 18:31 | 只看該作者

回復 3# GBKEE

抱歉沒把問題講清楚，我是想把sheet1「DDE」的data
符合條件後寫入到sheet2「監控」，而在寫入時希望能先比對Sheet2是否有重覆的標的
若無則直接建立在既有資料的下方，所以我就用countif去檢查
ww代表的是股票的代碼，不知道是不是該加入「"」，一直無法正常運作，感謝