- 帖子
- 12
- 主題
- 3
- 精華
- 0
- 積分
- 20
- 點名
- 0
- 作業系統
- Windows
- 軟體版本
- office 2003
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2010-6-30
- 最後登錄
- 2013-6-4
|
大大~~ 請問我那裡錯了嗎?
請指導
謝謝
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 |
|