Question

我有一个包含多个项目的工作簿。每个项目都有自己的项目名称表。在A栏中，我有一个订单号列表（Ordernub）。

在另一张名为＆＃34; MasterList＆＃34;包含所有项目中的所有订单号。此列表也在A列中，没有标题。

我需要一个函数或宏来搜索我的所有工作表（条形图MasterList），并填充工作表名称，可以在B列找到订单。

我尝试了间接，但没有运气。

Answer 1

您可能需要填写一些空白，但类似于：

For each rgOrder in rgMasterList
     for each wsSheet in thisworkbook.sheets
            if wsSheet.codename <> wsMasterList.codename then
                set rgMatch = wsSheet.columns(1).find rgOrder.value
                if not rgMatch is nothing then
                    rgOrder.offset(0,1).value = wsSheet.name
                    exit for
                end if
            end if
     next ' the "exit for" above exits this inner For
 next

或者如果它可以在多个工作表中替换为

if not rgMatch is nothing then
    rgOrder.offset(0,1).value = rgOrder.offset(0,1).value & ", " & wsSheet.name
end if

Excel：填充给定变量的工作表名称

1 个答案: