新人求助，麻烦帮忙看下错在哪

maybe96

Sub 查找()
Dim rc%, rng3 As Range, ic%
With Sheets("库存明细表")
ic = Application.CountIf(.[b:b], Range("g3"))
Set rng3 = .Range("b:b")
If rng3.Find(Range("g3")) Is Nothing Then
    MsgBox "该单号不存在"
Else
    rc = .[b:b].Find([g3]).Row
    [c3]= .Cells(rc, 3).Value
    [e3]= .Cells(rc, 1).Value
    Cells(6, 2).Resize(ic, 5) = .Cells(rc, 4).Resize(ic, 5).Value
    MsgBox "查找完成"
End If
End With
End Sub
提示缺少函数或变量，改成range("c3")就可以了

cui26896

改range("c3")就行了，是因为你只有一个表。如果有两个表，还是要出错，原因是在[c3]要改成.[c3],必须加点.不然你的with Sheets("库存明细表")是干什么的？

老九别走

[c3]要改成.[c3],必须加点。

maybe96

cui26896 发表于 2020-2-22 13:42
改range("c3")就行了，是因为你只有一个表。如果有两个表，还是要出错，原因是在[c3]要改成.[c3],必须加点. ...

不好意思，我这个可能没说清楚。是有两个表，c3是我的活动工作表，库存明细表是另外一个表

cui26896

你最好还是上传一个附件，象这样隔空对话，无法做出判断。