引用表来查找Excel中工作表之间的值

好吧,这是一个问题的doosy:

我在医疗保健领域工作,目前我有一个工作手册,它使用一个INDEX:MATCH函数引用值,这个函数是根据我手动input的一个患者姓名进行的。 我自动使用这个方法拉7/10列。 第8列是信息的生成date,第9列是从另一张表中手动input的病人房间号的date/时间戳。

这是棘手的部分。 这两个报告,我从我们的床pipe理程序Allscripts拉,不翻译床名/数字相同的方式。 所以我在另外一张纸上创build了一个翻译表。 我的问题是这样的:有没有一种方法,我可以使用一个像INDEX:MATCH,VLOOKUP或Excel或VBA中的其他内容来引用我的翻译表,以查找床名/号码和自动填写我需要的信息?

电子表格如下所示:

https://docs.google.com/spreadsheets/d/1j8b2jZ7ZUzKpmoqoisFBVccDKw_CWDfWCGL_CcO2hCo/edit?usp=sharing

因此,“原始数据页”上的列G需要从同一页面引用列E,根据“床翻译页面”翻译床名,然后从“作业活动详细信息”页面查找date/时间信息在G列翻译的床上。 在我当前的工作簿中,由于数据的日常input(我手动更改每个列的INDEX:MATCHfunction中的search范围),床名重复超过了100k次。

我希望有人能为我揭开一些光明,这是我近两年来存在的祸根! 感谢您的任何信息/帮助可能能够提供! 🙂

伟大的消息人,你不会需要这个! 它从作业活动细节中拉出G列,其中原始数据页上的标识符等于作业活动细节上的标识符,并且在作业活动细节和入口细节入口处的名称相同,并且在J和M的两次相应的页面匹配。

Option Explicit Sub bd() Dim rdsheet As Worksheet, jbsheet As Worksheet, btsheet As Worksheet Dim bdstr, bdendrow, rng As Range, y, Key, GCell, BdCell Set rdsheet = Sheets("Raw Data Page") Set jbsheet = Sheets("Job Activity Detail") Set btsheet = Sheets("Portal of Entry Detail") bdstr = rdsheet.Range("G3").Address bdendrow = rdsheet.Range("A3").End(xlDown).Row Set rng = rdsheet.Range(bdstr & ":G" & bdendrow) For Each y In rng If IsEmpty(y) Then Key = y.Offset(0, -2).Value Key = Replace(Key, "-", "") Set GCell = jbsheet.Range("A:A").Find(what:=Key, LookAt:=xlPart) Set BdCell = btsheet.Range("B:B").Find(what:=y.Offset(0, -4).Value, LookAt:=xlPart) If Not GCell Is Nothing And btsheet.Range("J" & BdCell.Row).Value = jbsheet.Range("M" & GCell.Row).Value Then rdsheet.Range(y.Address) = jbsheet.Range("G" & GCell.Row) End If End If Next y End Sub 

{= INDEX('Job Activity Detail'!$ G $ 106463:$ G $ 106689,MATCH('Raw Data Page'!E15459&H15459,'Job Activity Detail'!$ A $ 106463:$ A $ 106689&'Job Activity Detail'!$ M $ 106463:$ M $ 106689,0))}查找值作为一个数组函数与多个匹配标准似乎工作! 我很感激Lowpar的洞察力! 🙂