抱歉，我无法截取excel表格，因为它是公司的机密信息。让我试着更好地解释一下。
在B7栏（并且一直向下），我有一些成本中心代码。在D7列中，我需要执行vlookup以查找此成本代码属于哪个部门。
例如，在单元格B7中，我可以使用代码：110-120。所以在D7中我想显示代码所属部门的名称。
我通过在名称管理器中添加名称为vlookup表命名。它被称为：Department_mapping。它位于另一张名为“VLOOKUP表”的表格中。
对于department_mapping表，A1标记为Cost Center，A2标记为Department。因此，我需要代码做的是执行vlookup以查找特定成本代码所属的部门并从D7开始填写它。此外，我需要代码这样做，直到B7列的最后一个代码。
到目前为止，我尝试过的现有代码是： On Error Resume Next Dim MyStringVar1 As Variant On Error Resume Next MyStringVar1 = Application.VLookup（范围（＆＃34; B7＆＃34;），_ 工作表（＆＃34; VLOOKUP表＆＃34;）。范围（＆＃34; A：B＆＃34;），2，True） On Error GoTo 0 范围（＆＃34; D7＆＃34;）= MyStringVar1
我需要的代码不仅要填充D7，还要填充列中的其他字段。我需要代码来自动填充其余部分。
答案 0 :(得分：0)
如果我正确理解，您需要填充item.setUpdate("menuBar1");
列中的所有单元格＆＃34; D＆＃34;直到列中有数据的行＆＃34; B＆＃34;然后改变你的
VLOOKUP
到
selection.value
这将检查最后一行中的数据＆＃34; B＆＃34;并在列＆＃34; D＆＃34;中填充值来自＆＃34; D6＆＃34;一直到最后一排。