Таблица Vlookup для копирования листа в другую рабочую книгу VBA - PullRequest
Новая
       39

Таблица Vlookup для копирования листа в другую рабочую книгу VBA

0 голосов
/ 02 мая 2018

Я работаю с двумя рабочими тетрадями. В одной книге у меня есть шаблон и таблица соответствия. В другой книге у меня много листов с несколькими альфа-именами.

Таблица поиска имеет столбец для имен альфа-листа и два других столбца со значениями для переименования листа.

Мне необходимо скопировать шаблон и вставить его во вторую рабочую книгу для каждого листа с альфа-именем в названии и переименовать шаблон в значения в таблице поиска. В настоящее время у меня проблемы с получением 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

1 Ответ

0 голосов
/ 02 мая 2018

Возможно, потому что вам не хватает последнего параметра vlookup, который заставляет функцию возвращать приблизительные значения, когда она не соответствует вашему диапазону, поэтому вам нужно добавить ", FALSE" перед закрытием скобок

...