|
0 / 0 / 0
Регистрация: 22.07.2015
Сообщений: 12
|
|
| 1 | |
Поиск и вывод подобных строк22.07.2015, 09:22. Показов 529. Ответов 0
Метки нет (Все метки)
Sub test() Dim cell As Range, ra As Range Dim sh As Worksheet: Set sh = Worksheets("Блокировки") Set ra = sh.[a1:c1] For Each cell In sh.Range(sh.[c1], sh.Range("c" & Rows.Count).End(xlUp)).Cells If Len(cell) Then If Not Range("k:k").Find(cell) Is Nothing Then Set ra = Union(ra, sh.Range(cell, cell.EntireRow.Cells(1))) End If End If Next cell Set shh = Worksheets("Результат") shh.UsedRange.Clear ra.Copy shh.[a1] End Sub Потом надо что бы выведенную строку можно было редактировать, и после этого она должна заноситься обратно в таблицу из которой был осуществлен поиск.
0
|
|
(
| 22.07.2015, 09:22 | |
|
Ответы с готовыми решениями:
0
Вывод картинок подобных товаров Вывод подобных данных из DB MySQL Как выбрать набор строк с помощью LIKE подобных операторов? |
| 22.07.2015, 09:22 | |
| 22.07.2015, 09:22 | |
|
Помогаю со студенческими работами здесь
1
Поиск строк, и вывод результата Поиск числа в текстовом файле и вывод строк Поиск и вывод строк из файлов в нескольких каталогах
Поиск строк в текстовом файле, и вывод их с текстовым комментарием Поиск по значению и вывод строк из таблицы на другой лист Excel Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |
|
