请教for each 语法问题！

fan7310

   

        Sub 匹配产品编码()
Dim bm As Range, sku As Range
For Each bm In ThisWorkbook.Sheets("数据库").Range("a2", Cells(Rows.Count, "a").End(xlUp))‘主要是这部分必须是活动工作表才可运行，非活动不可用
    For Each sku In ThisWorkbook.Sheets(1).Range("b2", Cells(Rows.Count, "b").End(xlUp))
        If InStr(sku, bm) > 0 Then
            bm.Offset(0, 1).Copy sku.Offset(0, 2)
        End If
    Next sku
Next bm
End Sub

是我语法错误吗？还是不可以用这么写 必须是dim bm AS worksheets  然后if sheets.name="数据库" 在range() ?
百度 哔哩都搜索过 都没有叫搜到 跨工作表 匹配的这类的!

山菊花

改一下：


For Each bm In ThisWorkbook.Sheets("数据库").Range("a2", ThisWorkbook.Sheets("数据库").Cells(Rows.Count, "a").End(xlUp))

蓝桥玄霜

Dim bm%,sku%

剑指E

For Each bm In Sheets("数据库").Range("a2:a" & Sheets("数据库").Cells(Rows.Count, "a").End(xlUp).row)

fan7310

山菊花 发表于 2024-7-11 18:15
改一下：

非常感谢,茅塞顿开.!! !!

fan7310

剑指E 发表于 2024-7-11 18:20
For Each bm In Sheets("数据库").Range("a2:a" & Sheets("数据库").Cells(Rows.Count, "a").End(xlUp).row ...

非常感谢,茅塞顿开.!! !!