Но при условии, что оба листа абсолютно идентичны, если нет, то нужно организовать поиск что-то типа:
Sub FindValue(Val)
Dim i as Long
for i = 1 To List2.ListCount
if List2.ItemData(i) = Val Then _
List2 = List2.ItemData(i)
exit for
endif
next
end Sub |
|