Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Макрос поиск и копирование - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос поиск и копирование (Макросы/Sub)
Макрос поиск и копирование
July_nina Дата: Четверг, 04.02.2016, 10:54 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - July_nina
Дата добавления - 04.02.2016 в 10:54
Wasilich Дата: Четверг, 04.02.2016, 11:06 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 868
Репутация: 221 ±
Замечаний: 0% ±

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

Автор - Wasilich
Дата добавления - 04.02.2016 в 11:06
July_nina Дата: Четверг, 04.02.2016, 11:33 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Спасибо за быстрый ответ! Вот пример
К сообщению приложен файл: 0908693.xlsx(11Kb)
 
Ответить
СообщениеСпасибо за быстрый ответ! Вот пример

Автор - July_nina
Дата добавления - 04.02.2016 в 11:33
Wasilich Дата: Четверг, 04.02.2016, 12:20 | Сообщение № 4
Группа: Друзья
Ранг: Ветеран
Сообщений: 868
Репутация: 221 ±
Замечаний: 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]
К сообщению приложен файл: 6022724.xls(46Kb)
 
Ответить
СообщениеНу если не так... Перетакивать не буду. :)
[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]

Автор - Wasilich
Дата добавления - 04.02.2016 в 12:20
July_nina Дата: Четверг, 04.02.2016, 12:50 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
В любом случае Большое спасибо! Буду разбираться
 
Ответить
СообщениеВ любом случае Большое спасибо! Буду разбираться

Автор - July_nina
Дата добавления - 04.02.2016 в 12:50
July_nina Дата: Четверг, 04.02.2016, 12:54 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Всё именно так! ГИГАНТСКОЕ Спасибо! hands
 
Ответить
СообщениеВсё именно так! ГИГАНТСКОЕ Спасибо! hands

Автор - July_nina
Дата добавления - 04.02.2016 в 12:54
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос поиск и копирование (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!