如何使用VBA逐页跨工作簿进行VLOOKUP

我提前表示歉意-我对VBA比较熟悉

我每天都会生成一份报告，其中有几张表（比如Sheet1、Sheet2、Sheet3）。这些表格有表格，我可以在其中跟踪每个订单行的注释，我想每天记录这些注释

我面临的问题是：我需要能够对Sheet1、Sheet2和Sheet3重复此操作，从前一天的相应Sheet1、2、3中提取，并每天重复此操作

vlookup是否有办法识别我的活动工作表名称，例如Sheet3，并回顾前一天的工作簿并从该工作表3中提取

这是可以做到的吗

---

感谢您的帮助

在您达到目标之前，您需要一个始终如一的起点。我会创建一个新的工作簿，并保留您的逻辑。您不需要宏位于数据所在的工作簿中

像这样：

如果要更改控件工作簿的外观，最好使用命名范围，并且可以为文件名创建公式，使其默认为当前工作日和上一个工作日

代码将启动这两个工作簿。希望这对你来说是一个有效的起点，并给你一个如何继续的想法

Sub mergeThese()

    path_New = Range("path_New")
    path_Old = Range("path_Old")
    file_New = Range("file_New")
    file_Old = Range("file_Old")

    Workbooks.Open path_Old & file_Old
    Workbooks.Open path_New & file_New

End Sub

---

有很多方法可以实现这一点。不幸的是，你在一篇文章中问了几个问题（不管你是否知道）。堆栈溢出适用于更有针对性的问题。我建议您尝试录制一个宏来完成您正在尝试的操作。您好n8谢谢您的回复-我将编辑我的原始帖子以反映我正在尝试解决的具体问题address@n8. <代码>选择。插入移位：=xlToRight，CopyOrigin:=xlFormatFromLeftOrAbove范围（“D2”）。选择ActiveCell.FormulaR1C1=“=VLOOKUP（[@Column1]，“[PLS DMD 022416.xlsm]Sheet3'！C3:C4,2，FALSE）”范围（“D3”）.选择这是我目前正在处理的问题，但这仅适用于从活页3拉到新的022516活页3上。这也不允许我在第二天从（PLS DMD 022616）重复这一点，因为它不会引用022516，但仍然是022416您是一个单元接一个单元吗？@n8。我试着一页一页地写，vlookup应该向下填充每一行hi@n8。这是我工作的好地方——我想再次表达我的感激之情！如果遇到问题，请告诉我。给我一张弃权票！我喜欢积分。