Question

我需要在2个不同的工作表（Master和WI pull）上引用一个唯一的文本字符串，当找到匹配时，我需要在'Master'表上填充另一列，其中包含来自WI pull上另一列的数据。

当主表单目标单元格为空时，我只需要它来执行此操作，否则它应该移动到右侧1单元格，如果它是空白则再次填充。它仅为3列执行此操作。如果同一行的3列中的所有3个单元格都不是空白，则它不应该执行任何操作。完成此操作后，需要向下移动1个单元格才能重复。

例如：将WI拉出的列'H'中的单元格与主表单中的列'A'中的单元格匹配。

一旦匹配，将'C'从WI中相同的行引用复制到主表上的'W'，如果它是空白，否则将其复制到'X'，如果是空白，否则将其复制到'Y'如果是空白，否则不要复制并向下移动WI拉出的'H'中的一个单元格并重复该过程。

我有这个代码，它不会查找空格（一旦我开始工作，我就会修改代码），但它会在目标单元格中一直返回零。

 Sub test()
 Dim masterWorkbook As Workbook
 Set masterWorkbook = Application.ActiveWorkbook

 Dim masterSheet As Worksheet
 Dim importedSheet As Worksheet
 Set masterSheet = masterWorkbook.Worksheets("Master")
 Set importedSheet = masterWorkbook.Worksheets("WI pull")

 masterSheet.Range("W7:W1068").Formula = _
 "=INDIRECT(""importedSheet!C"" & INDEX(MATCH(A1,importedSheet!H:H,0),0,0))"

 masterSheet.Range("W7:W1068").Value = masterSheet.Range("W7:W1068").Value
 End Sub

帮助表示赞赏

VBA索引匹配或其他

0 个答案: