Vlookup表將工作表復制到其他工作簿VBA

Question

我正在處理兩個工作簿。 在一個工作簿中，我有一個模板和一個查找表。 在另一本工作簿中，我有很多工作表，只有幾個命名的alpha。

查找表中有一列用於Alpha工作表名稱，另外兩列具有用於重命名工作表的值。

我本質上需要復制一個模板，並將其粘貼到第二個工作簿中，以便每個名稱中具有alpha的工作表並將模板重命名為查找表中的值。 我目前在使vlookup正常工作時遇到問題。 盡管ws.name返回的是正確的值，但我的“ a”值甚至沒有匹配到應該為1到1匹配的第一列。

下面是到目前為止的代碼。

For Each ws In ActiveWorkbook.Sheets

    If LCase(ws.Name) Like "*alpha*" Then

                a = Application.WorksheetFunction.VLookup(ws.Name, Sheet1.Range("A2:D24"), 1)

                Debug.Print ws.Name
                Debug.Print a 
     End If
Next ws

Answer 1

可能是因為您缺少vlookup的最后一個參數，該參數導致函數在與范圍不匹配時返回近似值，因此需要在括號前添加“，FALSE”