Уважаемые знатоки! Помогите пожалуйста найти скрипт для решения задачи: На листе1 находится столбец с данными, например 111111. На листе2 находится столбец с данными, например yk-111111s. Необходимо найти совпадающие значения и в случае совпадения скопировать строку на лист3.
Уважаемые знатоки! Помогите пожалуйста найти скрипт для решения задачи: На листе1 находится столбец с данными, например 111111. На листе2 находится столбец с данными, например yk-111111s. Необходимо найти совпадающие значения и в случае совпадения скопировать строку на лист3.July_nina
Sub isk() Dim sz&, x&, i& sz = 1 For x = 1 To Cells(Rows.Count, 2).End(xlUp).Row If Len(Range("C1").Value) > 1 Then With Sheets("Лист2") For i = 1 To .Cells(Rows.Count, 3).End(xlUp).Row cc = .Cells(i, 2) If InStr(1, UCase(.Cells(i, 2)), UCase(Cells(x, 3).Value)) > 0 Then With Sheets("Лист3") .Cells(sz, 1) = Cells(x, 1) .Cells(sz, 2) = Cells(x, 2) .Cells(sz, 3) = Cells(x, 3) sz = sz + 1 End With Exit For End If Next i End With End If Next x End Sub
[/vba]
Ну если не так... Перетакивать не буду. [vba]
Код
Sub isk() Dim sz&, x&, i& sz = 1 For x = 1 To Cells(Rows.Count, 2).End(xlUp).Row If Len(Range("C1").Value) > 1 Then With Sheets("Лист2") For i = 1 To .Cells(Rows.Count, 3).End(xlUp).Row cc = .Cells(i, 2) If InStr(1, UCase(.Cells(i, 2)), UCase(Cells(x, 3).Value)) > 0 Then With Sheets("Лист3") .Cells(sz, 1) = Cells(x, 1) .Cells(sz, 2) = Cells(x, 2) .Cells(sz, 3) = Cells(x, 3) sz = sz + 1 End With Exit For End If Next i End With End If Next x End Sub