- 帖子
- 2
- 主題
- 0
- 精華
- 0
- 積分
- 8
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- SP3
- 閱讀權限
- 10
- 註冊時間
- 2010-6-24
- 最後登錄
- 2011-5-8
|
本帖最後由 yourstory 於 2011-5-8 07:49 編輯
請問 Hsieh 版大大~為何我將你的語法改成下面這樣…會出現階段錯誤13...型態不符合呢??
改成符合條件就打勾勾，這樣不行嗎??...一頭霧水中.....
執行後目標儲存格有打勾勾說…但是會出現型態不符合…怎會這樣@@
該如何改...麻煩會的大大教一下~感激不盡唷
Sub ex()
For Each a In [A3:I22]
If a <> "" And Application.Match(a, [A1:I1], 0) Then a.Value = "v"
Next
End Sub |
|
發表於 2011-5-8 07:17
| 