VLOOKUP из Блокнота в Excel (Два листа) - PullRequest
Новая
       6

VLOOKUP из Блокнота в Excel (Два листа)

0 голосов
/ 21 сентября 2018

Я просматривал темы VLOOKUP по всему форуму и не мог найти информацию, соответствующую моим потребностям.Я пытался настроить код в другом месте для моих нужд, но я безуспешно потерпел неудачу.Я надеюсь, что кто-нибудь может помочь мне здесь.Благодарю.

У меня есть файл блокнота (я мог бы сделать его превосходным, даже если кто-нибудь порекомендовал бы для простоты кода), который будет иметь несколько названий магазинов в каждой строке.

У меня есть файл Excel, который имеет два листа.Лист1 имеет две колонки.Первый столбец - название магазина, а второй - выручка.Sheet2 пуст, и именно здесь я хочу заполнить первый и второй столбец Sheet1, но только если имя хранилища первого столбца sheet1 находится в блокноте.По сути, блокнот - это моя движущая сила, а затем я отправляюсь на Sheet1 для VLOOKUP.если он существует только тогда, я добавляю Sheet2.

Это код, который я написал до сих пор.Открытие блокнота, сохранение в массиве все работает хорошо.Только VLOOKUP - это то, где мне нужна помощь.

Sub test () 

Dim myFile          As String
Dim textline        As String
Dim myArray(200)    As Variant
Dim x               As Long
Dim y               As Long
Dim z               As Long
Dim activesheetname As String
Dim sheet1sheetname  As String
Dim srchRange As Range


myFile = "C:\Desktop\master store.txt"
x = 0
activesheetname = ActiveSheet.Name
sheet1sheetname = "Sheet1"

Open myFile For Input As #1 

Do Until EOF(1)
    Line Input #1 , textline
    myArray(x) = textline
    x = x + 1
Loop

Close #1 

For y = 0 To x
    z = y + 1

    Worksheets(activesheetname).Range("A" & z).Value = myArray(y)

    'Code for VLOOKUP here

Next y

End Sub

Вот как будет выглядеть блокнот: 

VICTORIA CORP.
BROADWAY DRUG INC.
PHARMACY INC.
AVENUE PHARMACY INC.
v PHARMACY INC

excel sheet1: 

Customer Name         Gross Sales
BROADWAY DRUG INC.    $14.81
AVENUE PHARMACY INC.  $64.56
PHARMACY INC.         $27.63
v PHARMACY INC        $861.16
VICTORIA CORP.        $734.63
...