如何在不同的工作表上進行Vlookup並將其填充到最後的數據

對不起，我無法截獲excel工作表cuz其公司機密信息。讓我試着更好地解釋它。如何在不同的工作表上進行Vlookup並將其填充到最後的數據

在B7欄（一路下來），我有一些成本中心代碼。在D7列中，我需要通過查找來查找該代碼所屬的部門。

例如，在單元格B7中，我可以使用代碼：110-120。所以在D7中，我想顯示代碼所屬部門的名稱。

我已經通過在名稱管理器中添加名稱給vlookup表命名。它被稱爲：Department_mapping。它位於另一張名爲'VLOOKUP Table'的表格中。

對於department_mapping表，A1標記爲成本中心，A2標記爲Department。因此，我需要的代碼是做一個vlookup來查找特定代碼所屬的部門，並從D7開始填充它。此外，我需要代碼才能這樣做，直到列B7中的最後一個代碼。

，我到目前爲止已經試過我的exisiting代碼：上的錯誤繼續下一步昏暗MyStringVar1爲Variant 上的錯誤繼續下一步 MyStringVar1 = Application.VLookup（範圍（「B7」），_ 工作表（「VLOOKUP表「）範圍（」 A：B 「），2，TRUE）對錯誤轉到0 範圍（」 D7" ）= MyStringVar1

我需要的代碼填寫不只是D7但其餘字段下來該列。我需要代碼來自動填充其餘的。

來源

2015-10-15 jlyh11

你可以添加一些截圖嗎？那麼我可能能夠幫助你 – Uppah

我試圖重新解釋這個問題。請看看你能否幫忙。提前致謝！ :) – jlyh11

所以讓我弄清楚這一點。在department_mapping表中，A1標記爲「成本中心」，A2標記爲「部門」。這是否意味着B1標記爲「成本中心」，而B2標記爲「部門」？ – Uppah

如果我理解正確的，你需要填充VLOOKUP列「d」的所有單元格到這列「B」中有數據行，然後改變你的

selection.value

到

sheets("YourSheet").range("D6:D" & Sheets("YourSheet").range("B" & rows.Count).end(xlup).row).value

這將檢查列「B」中的數據的最後一行，並將「D6」列中的值填充到最後一行。

來源

2015-10-15 14:27:30 Raugmor

我仍然遇到運行時錯誤1004，說：無法獲取WorksheetFunction類的VLookup屬性 – jlyh11

到目前爲止，我的現有代碼已更改爲你的建議是：表格（「Detail by cc」）。Range（「D7：D」＆Sheets（「Detail by cc」）。Range（「B」＆Rows.Count）.End（xlUp）.Row）。 Value = Application.WorksheetFunction.VLookup（Range（「B7」），[Department_mapping]，2，FALSE） – jlyh11

@ jlyh11很可能你有一些查找值是「#N/A」，改變Application.WorksheetFunction.VLookup '以'Application.VLookup'，這應該解決它 – Raugmor

如何在不同的工作表上進行Vlookup並將其填充到最後的數據

回答

相關問題