Макрос поиск и копирование

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос поиск и копирование (Макросы/Sub)

July_nina

Дата: Четверг, 04.02.2016, 10:54 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Уважаемые знатоки! Помогите пожалуйста найти скрипт для решения задачи:
На листе1 находится столбец с данными, например 111111. На листе2 находится столбец с данными, например yk-111111s. Необходимо найти совпадающие значения и в случае совпадения скопировать строку на лист3.

Ответить

Wasilich

Дата: Четверг, 04.02.2016, 11:06 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1232

Репутация: 326 ±

Замечаний: 0% ±

2003

Юля, приложите пример близкий к реальному, ибо потом начнется - надо не так, надо не то, надо не туда.

Ответить

July_nina

Дата: Четверг, 04.02.2016, 11:33 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Спасибо за быстрый ответ! Вот пример

К сообщению приложен файл: 0908693.xlsx (11.3 Kb)

Ответить

Wasilich

Дата: Четверг, 04.02.2016, 12:20 | Сообщение № 4

Группа: Друзья

Ранг: Старожил

Сообщений: 1232

Репутация: 326 ±

Замечаний: 0% ±

2003

Ну если не так... Перетакивать не буду.

[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

[/vba]