Если имя не соответствует листу 2 из листа 1, добавьте имя к листу 2 - PullRequest
Новая
       55

Если имя не соответствует листу 2 из листа 1, добавьте имя к листу 2

0 голосов
/ 03 ноября 2011

У меня есть 2 листа, один с именем счета, а другой с именем листа1.

У меня есть код VBA, чтобы найти имя и вставить информацию в соответствующее имя, но как мне добавить новое имя, которого там нет?

Затем, если имя не найдено, добавьте имя в столбец F строки 192 и столбец F строки 193.

пример:

счета 

A           B      C    D     E  F      G    H

xxx        xxxx   xxx  xxx  xx  bill    xxx      
xxx        xxxx   xxx  xxx  xx  bill    xxx 

xxx        xxxx   xxx  xxx  xx  man     xxx

xxx        xxxx   xxx  xxx  xx  man     xxx



sheet1

 A          B      

bill      19.23   
man       156.23

Вот что у меня есть: 

Dim sh1 As Worksheet, sh2 As Worksheet

Dim j As Long, i As Long, lastrow As Long

Set sh1 = Worksheets("test")

Set sh2 = Worksheets("Sheet1")

    lastrow1 = sh1.Cells(Rows.Count, "F").End(xlUp).Row
    lastrow2 = sh2.Cells(Rows.Count, "A").End(xlUp).Row

    For i = 2 To lastrow1
        For j = 1 To lastrow2
            If sh1.Cells(i, "F").Value = sh2.Cells(j, "A").Value Then
                sh1.Cells(i, "H").Value = sh2.Cells(j, "B").Value
            End If
        Next j
    Next i
End Sub

1 Ответ

0 голосов
/ 05 ноября 2011

Я знаю, что вы пытаетесь использовать макрос, а не делать этот звук слишком простым, но вы подумали о том, чтобы просто назвать желаемый диапазон на листе ввода данных (счетах), а затем на листе 1, где вы хотите, чтобы данныеотображать, используя формулу поиска?

Например:

Bills.xls

ABCDEFGH

xxx xxxx xxx xxx xx billххх
ххх хххх ххх ххх хх банкнот ххх

ххх хххх ххх ххх хх человек ххх

ххх хххх ххх ххх хх человек xxx

sheet1

AB

Билл 19.23
Человек 156.23

.... Назовите диапазон F1: F100 "Имена"

Затем, на sheet1.xls в каждой ячейкежелаемую строку вывода (просто скопировать / вставить) и использовать проверку данных с именованным диапазоном /// может быть просто формулой, заявляющей = if ('NAMES' $ F $ 1 <> "", 'NAMES' $ F $ 1, "")

... то есть, если я правильно понимаю ваши потребности.

...