Как выбрать каталожные номера? - VBA
Формулировка задачи:
Всем здравствуйте!
Подскажите, как решить следующую задачу.
Есть 2 листа Excel.
На одном листе остатки товара - наименование и каталожный номер товара в одной ячейке.
На втором листе заявка, в которой каталожный номер выделен в отдельный столбец.
Можно ли сделать так, чтобы на листе Остатки выбрать каталожные номера в отдельный столбец, но только те, которые присутствуют в листе Заявка?
Строк довольно много - около 14000.
Файл прилагаю.
Спасибо.
Решение задачи: «Как выбрать каталожные номера?»
textual
Листинг программы
Sub Поиск_номера_и_разбивка() Dim i&, j&, A, B B = Worksheets("Заявка").[A1].CurrentRegion.Value With Worksheets("Остатки") A = Intersect(.UsedRange, .Columns("A:B")).Value For i = 2 To UBound(A) For j = 2 To UBound(B) If IsEmpty(A(i, 1)) Or IsEmpty(B(j, 2)) Then ElseIf InStr(1, A(i, 1), B(j, 2), vbTextCompare) > 0 Then A(i, 1) = Trim(Replace(A(i, 1), B(j, 2), "", , , vbTextCompare)) A(i, 2) = B(j, 2) Exit For End If Next j Next i Intersect(.UsedRange, .Columns("A:B")).Value = A End With End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д