Сравнить данные 2 листов и перенести строки в нужное место

[Boombeat]

есть необходимость в следующем:

На Листе1 в столбце1 есть значения в виде чисел
На Листе2 в столбце1 есть текст среди которого есть числа (..Текст (число) текст...) из столбца1 Листа1
Нужно, чтобы все сроки Листа1 в столбце1 которого есть числа из Столбца1 Листа2 переносились на Лист2 и добавлялись сразу после строки удовлетворяющей требованию со здвигом вниз.

Надеюсь, что понятно выразился и очень надеюсь на вашу помощь.

(Если сравнивать значение Листа1 со значением Листа2 в тексте строки сложно, то тогда подойдет вариант со сравнением значений и копировании при равенстве)

[SergT]

If isNumeric(Ячейка) then - если число
Премещение по ячейкам и листам описывалось много раз.Все есть на форуме...

[Boombeat]

If isNumeric then

А можно пример кода?

[SergT]

По поиску...

Например, первое что попалось, есть тут:
http://bbs.vbstreets.ru/viewtopic.php?t ... 7%E5%E5%EA
Не стесняйся, в верхней части страницы есть ссылка "Поиск"...

"...требованию со здвигом вниз..." - сдвиг вниз, это видимо добавить строку?

Вот тебе совет, запиши макрос - запусти запись макроса в Excel и проделай вручную перемещение по листам, ячейкам, делай вставки и сдвиги.... Сохрани Макрос и посмотри, что получилось.

[SergT]

Перебором строк первого столбца определяешь, где значение=число и тут же переносишь на первый лист. Единственное, что встанет вопрос в определении места вставки. В первую же пустую? Короче, примеров тому уйма! Удачи в поиске

[Boombeat]

По поиску...

Например, первое что попалось, есть тут:
http://bbs.vbstreets.ru/viewtopic.php?t ... 7%E5%E5%EA
Не стесняйся, в верхней части страницы есть ссылка "Поиск"...

Для меня самое сложно - это копирование нужных строк на другой лист, и вставка их под строкой с найденным значением, со сдвигом остальных данных вниз. В форуме искал...

[SergT]

Запиши Макрос, кликая мышкой на листы и ячейки, делая вставки...Затем посмотри,что получилось. Excel умный, он сам тебе поможет, а потом - на форум в поиск! Уверяю, что на форуме есть почти все, что тебе надо, но у меня мало времени...

http://bbs.vbstreets.ru/search.php

[SergT]

Наспех набросал:
Вставь в Excel, запусти Макрос1Sub Макрос1()
Dim i As Long
Dim s As String
Sheets("Лист1").Select
For i = 1 To 20
s = Sheets("Лист2").Range("A" & i).Text
If IsNumeric(s) Then
MsgBox s
INSERT_NEW_VAL s
End If
Next i
End Sub
'-----------------------------------------------------------
Function INSERT_NEW_VAL(NewVal As String)
Dim i As Long
Dim CurVal
For i = 1 To 20
CurVal = Sheets("Лист1").Range("A" & i).Text
If NewVal <> CurVal Then
Rows(i + 1 & ":" & i + 1).Insert Shift:=xlDown
Range("A" & i + 1) = NewVal
Exit For
Else
Exit Function
End If
Next i
End Function

[Boombeat]

Наспех набросал:
Вставь в Excel, запусти Макрос1Sub Макрос1()
Dim i As Long
Dim s As String
Sheets("Лист1").Select
For i = 1 To 20
s = Sheets("Лист2").Range("A" & i).Text
If IsNumeric(s) Then
MsgBox s
INSERT_NEW_VAL s
End If
Next i
End Sub
'-----------------------------------------------------------
Function INSERT_NEW_VAL(NewVal As String)
Dim i As Long
Dim CurVal
For i = 1 To 20
CurVal = Sheets("Лист1").Range("A" & i).Text
If NewVal <> CurVal Then
Rows(i + 1 & ":" & i + 1).Insert Shift:=xlDown
Range("A" & i + 1) = NewVal
Exit For
Else
Exit Function
End If
Next i
End Function

1. Копируется только значение ячейки, а как сделать чтобы копировалась вся строка?
2. И главное, строка добавляется не под строкой с найденным значением (а под 1-й строкой листа)

[SergT]

Может мне всё самому сделать? Я показал в примере, как найти значение и как добавить строку Всё остальное - сам! Если сам не можешь или не хочешь, то ....
Вот из поиска по форуму:
http://bbs.vbstreets.ru/viewtopic.php?t ... 0%EE%EA%E8
Всего доброго!